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ABSTRACT 

Data  acquisition  software  was  written  to  recover  the 
ability  to  make  loss  measurements  using  a  five-hole 
pneumatic  probe  in  a  wind  tunnel  facility  currently 
containing  a  modeled  subsonic  cascade  of  controlled 
diffusion  (CD)  stator  blades.  Acquisition,  reduction  and 
ancillary  programs  were  written  for  a  Hewlett  Packard  9000 
Series  300  computer/HP  3052  Data  Acquisition  System  in  HP 
BASIC  5.0.  The  new  software  was  demonstrated  and  validated 
by  conducting  a  set  of  surveys  at  the  (near  to  stall)  air 
inlet  flow  angle  of  48  degrees.  The  survey  results  showed 
a  diminishing  core  of  two-dimensional  flow  through  the 
blading  due  to  side  wall  boundary  layer  effects,  and 
integration  of  upstream  and  downstream  measurements  gave  an 
axial  velocity-density  ratio  of  1.108  and  a  NASA  loss 
coefficient  of  0.097.  Prior  to  the  surveys,  the  probe  was 
calibrated  in  a  free  jet  facility,  thus  also  revalidating 
the  calibration  software.  It  was  concluded  that  the 
facility  instrumentation  and  procedures  were  now  in  place 
for  making  accurate  off-design  loss  measurements  on  a 
routine  basis. 
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I .   INTRODUCTION 

Off-design  compressor  performance  is  becoming  more 
important  as  future  engine  design  goals  involve  higher 
thrust-to-weight  ratios,  lower  specific  fuel  consumption, 
and  smaller  size.  Currently,  great  demands  on  the  engine 
are  made  during  high  angle-of-attack  flight  by  fighter 
aircraft  and  by  VSTOL  and  rotorcraft  operating  in  flight 
conditions  that  greatly  distort  the  flow  to  the  compressor. 
Design  goals  and  extreme  operating  conditions  push  the 
compressor  operating  point  towards  the  stall  boundary. 
Thus,  it  is  vitally  important  to  have  methods  for 
predicting  stall  margin  in  the  process  of  design. 

The  modeling  of  compressor  flows  using  computational 
fluid  dynamic  (CFD)  codes  is  the  key  to  such  a  development, 
and  cascade  data  on  flow  structure  and  blade  element 
behavior  are  required  to  validate  the  codes.  While  flow 
structure  of  the  velocity  field  can  be  mapped  using  a  laser 
dopier  velocimeter  (LDV)  system,  it  is  the  loss  coefficient 
(introduced  in  Chapter  VI  of  Ref.  1)  which  is  the  essential 
integral  measure  of  the  blade  element  performance.  The 
focus  of  the  present  work  was  to  recover  the  ability  to 
make  loss  measurements  using  a  pressure  probe  in  the  Naval 
Postgraduate  School's  (NPS)  cascade  facility. 

In  the  present  study,  the  cascade  was  configured  with 
the  mid  section  of  a  controlled  diffusion  (CD)  stator  blade 
designed  by   Sanger  [Ref.  2]  at  NASA  Lewis  Research  Center. 


Previous  studies  using  CD  blading  in  this  facility  include 
the  work  of  Koyuncu  [Ref.  3],  who  conducted  fourteen  tests 
at  air  inlet  angles  from  24.3  degrees  to  47.2  degrees  to 
measure  blade  performance  using  pressure  probes.  Dreon 
[Ref.  4]  followed  with  probe  studies  at  air  inlet  angles  of 
40.3  degrees  and  43.4  degrees,  concentrating  on  verifying 
the  accuracy  of  the  loss  measurements.  Dreon 's  work  is 
cited  frequently  throughout  the  present  report  since  much 
of  what  he  did,  in  principle,  was  used  to  guide  the  present 
work.  Elazar  [Ref.  5]  performed  detailed  measurements  of 
inviscid  flow  in  the  passage  between  two  adjacent  blades, 
the  boundary  layer  development  on  the  blade  surfaces  and 
the  early  wake  development  using  a  two-component  LDV 
system.  Baydar  [Ref.  6]  made  wake  measurements  using  hot 
wires  to  verify  the  LDV  wake  measurements  made  by  Elazar. 
In  these  earlier  studies,  the  cascade  flow  was  found  to  be 
acceptably  uniform  and  periodic  (each  blade  passage  the 
same),  and  showed  good  span-wise  independence.  Cascade 
flow  quality  was  initially  analyzed  by  NACA  [Ref.  7]  and 
first  addressed  at  NPS  by  Duval  [Ref.  8]. 

The  necessity  for  the  present  work  arose  when  an 
obsolete  and  unsupported  computer  was  replaced  by  a  Hewlett 
Packard  300  PC  in  an  upgrade  of  the  facility's  data 
acquisition  system.  Entirely  new  software  was  required  to 
be  written  (using  HP  BASIC  5.0)  to  replace  the  many 
previous  programs.  A  simple  translation  of  the  previous 
software  was  not  attempted  in  view  of  the  undocumented 


modifications  generated  by  a  series  of  previous  investiga- 
tors.  The  new  software  is  described  fully  in  Appendix  B. 

Overall,  recovering  the  ability  to  make  loss  measure- 
ments involved  first,  the  calibration  of  a  five-hole 
conical  pressure  probe  (Appendix  A),  second,  developing  the 
required  acquisition  and  reduction  software  and  third, 
obtaining  a  complete  set  of  preliminary  measurements  at  an 
air  inlet  angle  of  48  degrees  to  demonstrate  and  validate 
all  aspects  of  the  procedure.  The  conclusion  of  the  study 
was  that  the  calibrated  probe  and  data  acquisition  system 
are  indeed  operational,  and  ready  to  be  used  to  make 
surveys  and  loss  measurements  in  the  cascade. 

Section  II  of  this  report  describes  the  experimental 
apparatus,  namely  the  cascade  facility,  instrumentation  and 
the  data  system.  Section  III  addresses  the  test 
conditions,  calibration,  procedures,  method  of  referencing, 
and  outlines  the  measurements  that  were  made.  The  results 
are  presented  and  discussed  in  Section  IV  followed  by 
conclusions  and  recommendations  in  Section  V.  Appendix  A 
contains  the  details  of  the  probe  calibration.  Appendix  B 
contains  a  complete  discription  of  the  new  software,  with 
listings  of  all  programs  and  samples  of  the  printed  output 
tables.  Appendix  B  is  intended  to  serve  as  a  description 
and  user  guide  to  the  software.  Finally,  Appendix  C 
outlines  procedures  for  referencing  the  probe  yaw  angle. 


II.   EXPERIMENTAL.  APPARATUS 

A.  CASCADE  WIND  TUNNEL 

The  NPGS  cascade  facility  is  shown  in  Fig.  1.  Figure  2 
shows  the  test  section.  A  detailed  description  of  the 
facility,  test  section  and  CD  blading  is  contained  in 
Ref.  9. 

B.  CONTROLLED  DIFFUSION  BLADING 

Reference  2  describes  the  CD  blading  in  detail.  A 
profile  of  blade  and  pressure  tap  locations  on  instrumented 
blades  are  shown  in  Fig.  3. 

C .  I NSTRUMENTATION 

The  five-hole  conical  probe  used  and  described  by  Dreon 
[Ref.  4]  was  calibrated  and  used  for  the  probe 
measurements.   Appendix  A  contains  the  calibration  details. 

The  iron-constantan  thermocouple,  plenum  pressure  probe 
and  instrumented  CD  blade  were  used  as  described  by  Dreon. 
Wail  static  pressure  was  measured  from  a  centrally  located 
tap  upstream  of  the  blades.  A  Prandtl  probe  was  installed 
approximately  midway  between  the  inlet  guide  vanes  and  the 
test  blading.  The  probe  was  located  at  mid  span  between 
blades  15  and  16,  well  clear  of  the  probe  survey  locations. 
The  Prandtl  probe  measurements  provided  an  additional 
measure  of  tunnel  conditions.  The  cone  probe,  plenum,  wall 
static  and  Prandtl  probe  pressures  were  connected  to  a  48- 
port  Scanivalve.   A  second  Scanivalve  sampled  pressures 


Figure  1.   Cascade  Wind  Tunnel  Test  Facility 

5 


Figure  2.   Cascade  Test  Section  Schematic 


Figure  3.   CD  Blade  Pressure  Tap  Locations 


from  the  fully  (blade  10)  and  one  partially  instrumented 
blade  (blade  11),  and  from  the  plenum. 

A  yaw  transducer  on  the  conical  probe,  linear  over  the 
range  used,  provided  the  means  to  record  inlet  and  outlet 
flow  angles. 

Probe  displacement  in  the  blade-to-blade  direction  was 
determined  by  a  turn  counter  on  the  motor-driven  traverse 
mechanism. 

Span-wise  displacement  was  recorded  manually  from  a 
vernier  scale  attached  to  the  probe. 

D.   DATA  ACQUISITION  SYSTEM 

1 .  Hardware 

A  simplified  schematic  of  the  data  acquisition 
system  is  shown  in  Fig.  4. 

The  data  were  collected  using  the  Hewlett  Packard 
Data  Acquisition  System  (HP-3052)  with  instruments 
connected  through  an  Interface  Bus  (HP-98034,  HP-IB).  The 
HG-78K  Scanivalve  controller,  which  controlled  the 
selection  and  positioning  of  the  Scanivalves  is  described 
by  Geopfarth  [Ref.  10].  A  Hewlett  Packard  900  series  300 
computer  controlled  the  system.  The  instrumentation 
channel  assignments  are  given  in  Table  Bl. 

2.  Software 

Three  programs  comprise  the  data  acquisition 
software.  Program  "ACQUIRE"  controls  the  acquisition  and 
stores  the  collected  data.  Program  "CALC"  reduces  the  data 
to  commonly  used  engineering  quantities  and  "LOSS"  computes 
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Figure  4.   Data  Acquisition  System  Block  Diagram 


the  static  pressure  rise  coefficient,  axial  velocity 
density  ratio  (AVDR)  and  loss  coefficient.  Software 
details  are  contained  in  Appendix  B. 
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III.   TEST  PROCEDURES  AND  PROGRAM  OF 
MEASUREMENTS 


A.   TEST  PROCEDURES 

1 .  Setting  Test  Conditions 

Murray  [Ref.  11],  in  a  recently  completed  study, 
set  the  wall  angle  to  48  degrees  for  LDV  measurements.  A 
complete  account  of  the  angle  setting  procedure  is  given  in 
Appendix  A,  Section  VI  of  Ref.  11.  All  tests  in  the 
present  study  were  conducted  at  a  wall  angle  setting  of  48 
degrees  and  an  inlet  dynamic  pressure  (Q)  of  17"  H20. 
Atmospheric  pressure  was  taken  to  be  constant  over  the 
survey  period  of  approximately  two  hours. 

2.  Calibration 

The  Scanivalves  were  calibrated  prior  to  each  test 
using  shop  air  and  a  water  manometer.  The  probe  yaw 
transducer  was  scaled  at  two  limiting  settings  prior  to 
each  test,  having  been  shown  previously  to  be  linear  to 
within  0.2  degrees — the  resolution  of  the  yaw  vernier  scale 
on  the  probe. 

3.  Referencing 

Pressure  and  velocity  values  obtained  by  reducing 
probe  test  data  at  each  probe  position  were  referenced  to 
the  tunnel  conditions  at  the  time  of  the  recording.  This 
eliminated  the  effects  that  small  changes  in  the  tunnel 
supply  conditions  might  have  had  on  the  calculation  of  the 
loss  coefficient. 
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4 .   Data  Points 

The  probe  surveys  consisted  of  a  series  of 
individual  measurements  at  intervals  ranging  from  .05  -  .5 
inches.  At  each  interval,  the  probe  was  balanced  in  yaw 
(Appendix  A)  and  measurements  taken — defining  a  data  point. 
The  data  collected  were  reduced  using  the  equations  given 
in  Table  I. 

B.   PROGRAM  OF  MEASUREMENTS 

A  summary  of  the  probe  surveys  conducted  in  the  present 
study  is  contained  in  Table  II.  First,  a  set  of  probe 
surveys  was  conducted  to  establish  the  flow  quality  into 
the  cascade  test  section.  Second,  an  inlet  survey  in  the 
blade-to-blade  direction  was  conducted  to  examine  inlet 
uniformity.  Span-wise  surveys  upstream  and  downstream  of 
the  blades  were  then  made  to  examine  two-dimensionality. 
Finally,  detailed  blade-to-blade,  mid-span  surveys  over  one 
blade  passage  were  made  upstream  and  downstream  in  order  to 
compute  the  loss  coefficient. 

Upstream  and  downstream  surveys  were  made  at  the 
traverse  locations  indicated  in  Fig.  2.  Intervals  between 
data  points  were  decreased  when  a  change  in  flow  conditions 
was  evident.  Downstream  span-wise  surveys  were  located 
+  1.2  inches  from  a  vertical  extension  of  the  trailing  edge 
of  blade  9.  Surface  tap  pressures  were  recorded  from  the 
instrumented  blade  after  the  last  probe  data  point  was 
recorded  for  the  upstream  blade-to-blade  survey. 
Additionally,   pressures   were   recorded  from  the  partially 
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TABLE  I.   DATA  REDUCTION  FORMULAE 


PARAMETER  EXPRESSION 


PROGRAMMED  EXPRESSION 


_  I 


M* 


1*^M' 


same 


P. 

V 
Q 


A 


A 

T, 


Pi  (1  X*)rX 

xiacpT,!  « 
l(rTi)xa(1 

i  " 


same 


X2)T> 


X[2cp(778X32.174)TpI8 


same 


^ref 


•©■' 


same 


Vref 
Qref 


A 

Xref 


Xrrf^cpT,!  a 


P,(^}  WdX^ri 


«r 


i 

i 


X„r(2^  (778X32.174)  Tp)  » 


same 


aame 


A 
Vref 


A  A         I 

x„riai,Tp)  ■ 


X^f  12  ^(778X32.179)1^  > 
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TABLE  I.   DATA  REDUCTION  FORMULAE  (CONT.) 


PARAMETER 


EXPRESSION 


PROGRAMMED  EXPRESSION 


A 

Qref 


A   /  V  \   A  A  JL 

pp(ri)x'"S(lx«'J)1M 


same 


♦K 


1±  JL 

Pp    Xrrf 


1-X* 


IX^f* 


r' 


cosp 


AVDR 


hi 


J     Kjdx 
jo 

J'K.dx 


cPt 


P. 


same 


P. 


CD 


(%%  ) 
(%%  ) 


i'cpuKi^xwn  /'<*.* 


AVDR     'o         *2 


dx 


j'cp    K.dx/'cp    K,dx 


CP 


Pl-P. 


r,-p. 


&m 


j'ltlllKtix      J'fj^fjR.dx 

fillip    o     Q  4  o     q 

J    K,dx  J    K,  dx 


CP, 


{***)•(*?) 


f'P.-P.  f«  P.P.. 

J     -i? K,  dx      J     JL-3  K,dx 


o      Q 


o       q 


jK,dx  J'k,  dx 


*  Derivation  given  In  Ref.  8 
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TABLE  II  -  PROBE  SURVEYS 


SURVEY  H  LOCATION 


DIRECTION 
(Length) 


NOMINAL 
INTERVAL  fin.  ) 


UPSTREAM 


BLADE-TO-BLADE 
(20  Blade  Spaces) 


.5 


UPSTREAM 


SPAN-WISE 


.05  -  .1 


DOWNSTREAM 
(Pressure 
Side,  1.2" 


SPAN-WISE 


05  -  .1 


DOWNSTREAM     SPAN-WISE 

(Suction 

Side,  1.2") 


05  -  .1 


UPSTREAM 


BLADE-TO-BLADE 
(1  Blade  Space.) 


DOWNSTREAM 


BLADE-TO-BLADE 
(1  Blade  Space) 


05  -  .1 


15 


instrumented  blade  to  aid  in  establishing  periodicity. 
Three  data  points  were  collected  from  the  suction  side  and 
two  from  the  pressure  side.  Further,  a  trailing  edge  tap 
on  this  blade  provided  base  pressure. 
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IV.   RESULTS  AND  DISCUSSION 

A.   FLOW  FIELD 

The  probe  surveys  were  considered  to  be  preliminary  and 
were  conducted  primarily  to  demonstrate  and  validate  the 
new  data  acquisition  software.  The  results  were  interest- 
ing, however,  since  they  were  the  first  to  be  obtained  at 
an  inlet  angle  of  48  degrees  with  the  CD  blading.  Survey 
results  are  presented  in  Figs.  5-22  and  tabulations  of  the 
detailed  blade-to-blade  and  instrumented  blade  data  are 
given  in  Appendix  B,  Tables  B2  -  B7. 

1 .  Inlet  Flow  Field 

The  inlet  flow  field  was  seen  to  be  acceptably 
uniform.  Deviations  from  a  fully  uniform  velocity  were  due 
to  inlet  guide  vane  wakes  and  non-uniformity  in  vane 
geometry.  A  non-uniform  migration  of  the  guide  vane  wakes 
is  thought  to  explain  the  irregular  profile  of  the  inlet 
flow  angle  across  the  span,  seen  in  Fig.  10. 

2.  Two-Dimensionality  and  Periodicity 

Downstream  span-wise  surveys,  located  one  inch  to 
both  the  pressure  and  suction  sides  of  the  blade,  show  a 
diminishing  core  of  two-dimensional  flow.  This  was  the 
result  of  side-wall  boundary  layer  build-up  through  the 
test  section.  Flow  properties  were  independent  of  span 
only  over  a  limited  displacement  to  the  pressure  side  of 
the  blade.   The  significant  difference  between  the  pressure 
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and  suction   side  span-wise   profiles  was   due,  in  part,  to 
the  probe  being  in  the  blade  wake  on  the  suction  side. 

Periodicity  cannot  be  shown  with  results  obtained  over 
only  one  blade  passage.  However,  the  first  and  last  points 
in  the  downstream  survey  over  one  blade  passage  in  Fig.  20 
can  be  seen  to  be  in  good  agreement,  which  is  required  if 
the  flow  is  truly  periodic  over  successive  passages.  The 
degree  to  which  periodicity  was  manifested  was  also  seen  in 
Fig.  23.  Three  values  of  the  coefficient  of  pressure  for 
the  partially  instrumented  blade  are  shown  plotted  with  the 
distribution  of  values  for  the  fully  instrumented  blade. 
Values  for  two  other  taps,  towards  the  leading  and  trailing 
edge  on  the  suction  surface,  were  omitted  due  to  partial 
blockage  of  the  pneumatic  lines  leading  from  these  taps  to 
the  Scanivalve;  otherwise,  good  agreement  was  noted. 

B.   BLADE  ELEMENT  PERFORMANCE 

In  the  distribution  of  pressure  shown  in  Fig.  23,  a 
strong  adverse  pressure  gradient  is  clearly  indicated  over 
the  first  ten  percent  of  the  blade  chord  on  the  suction 
side.  The  profile  was  similar  in  shape  to  those  recorded 
in  Dreon's  [Ref.  4]  and  Elazar's  [Ref.  5]  work  at  inlet 
angles  of  43.7  degrees  and  46  degrees  respectively.  It  is 
noted  that  the  trailing  edge  (base)  pressure  on  the 
partially  instrumented  blade  gave  Cp  =  0.253. 

From  an  integration  of  the  data  obtained  in  surveys  5 
and  6  (Table  II)  using  program  "LOSS"  (Appendix  B),  the 
AVDR  was  calculated  to  be  1.108  and  the  loss  coefficient 
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was  0.097.  The  loss  coefficient  value  is  shown  plotted  in 
Fig.  24  where  it  can  be  seen  in  relation  to  Dreon's  and 
Koyuncu's  [Ref.  3]  losses. 

C.  MEASUREMENT  UNCERTAINTIES 

All  measurement  uncertainties  listed  in  Table  I  of  Ref. 
4  were  the  same  for  the  present  study  except  those  for  the 
inlet  and  outlet  flow  angles.  The  absolute  values  of  the 
flow  angle  for  the  present  data  were  not  known  to  better 
than  an  uncertainty  +  2  degrees.  The  means  to  establish  a 
pneumatic  axis  referenced  to  a  precisely  measured 
horizontal  or  vertical  axis  on  the  cascade  was  not 
available  at  the  time  of  the  measurements.  The  probe  yaw 
angle  readout  was  set  to  zero  when  the  probe  tip  was  judged 
to  be  pointing  vertically  downward.  The  inlet  angle  was 
subsequently  observed  to  indicate  approximately  48  degrees 
at  the  inlet  station,  consistent  with  Murray's  [Ref.  11] 
observations.  The  yaw  angles  recorded  during  the  tests 
were  uncertain  on  an  absolute  basis;  however,  the  relative 
flow  angles  recorded  from  the  yaw  transducer  during  the 
surveys  were  accurate  to  within  0.2  degrees. 

The  proposed  method  for  obtaining  absolute  accuracy  in 
the  yaw  angle  measurements,  using  the  optical  accuracy  of 
the  LDV  system  for  referencing,  is  given  in  Appendix  C. 

D.  TABULATED  AND  PLOTTED  QUANTITIES 

The  data  from  surveys  5  and  6  (Table  II)  are  shown  in 
Tables  B2  -  B5.   The  tables  include  values  of  the 
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Scanivalve  gauge  pressures,  yaw  transducer  reading,  plenum 
temperature  (total  temperature)  and  atmospheric  pressure. 
Pressures  are  given  in  inches  of  water.  Table  Bl  will  aid 
in  interpreting  the  scaled  probe  data. 

Appendix  B  defines  and  describes  the  quantities  Beta, 
Gamma  and  Phi  which  are  listed  in  Tables  B3  and  B5.  The 
ensemble  averages  given  at  the  end  of  Tables  B3  and  B5 
represent  the  nominal  (ensemble  averaged)  test  conditions 
for  the  survey.  All  other  quantities  can  be  interpreted 
using  the  List  of  Symbols  and  Table  I. 
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Figure  5.   Inlet  Survey:  Vl/Vref  vs.  Probe 
Displacement,  Blade-to- Blade 
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Pref-Ptl/Qref  VS  PROBE  DISPLRCEMENT 
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Figure  6.   Inlet  Survey:  Pref-Ptl/Qref  vs. 
Probe  Displacement,  Blade-to- Blade 
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Figure  7.   Inlet  Survey:  Betal  vs.  Probe 
Displacement,  Blade-to- Blade 
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Figure  8.   Inlet  Survey:  Vl/Vref  vs.  Probe 
Displacement,  Spanwise 
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Figure  9.   Inlet  Survey:  Pref-Ptl/Qref  vs 
Probe  Displacement,  Spanwise 
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Figure  10.   Inlet  Survey:  Betal  vs.  Probe 
Displacement,  Spanwise 
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Figure  11.   Outlet  Survey:  V2/Vref  vs.  Probe 
Displacement,  Spanwise  (Pressure  Side) 
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Figure  12.   Outlet  Survey:  Pref-Pt2/Qref  vs. 
Probe  Displacement,  Spanwise  (Pressure  Side) 
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Figure  13.   Outlet  Survey:  Beta2  vs.  Probe 
Displacement,  Spanwise  (Pressure  Side) 
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Figure  14.   Outlet  Survey:  V2/Vref  vs.  Probe 
Displacement,  Spanwise  (Suction  Side) 
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Figure  15.   Outlet  Survey:  Pref-Pt2/Qref  vs.  Probe 
Displacement,  Spanwise  (Suction  Side) 
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BETR2    VS    PROBE    DISPLACEMENT 


Figure    16.      Outlet   Survey:    Beta2   vs.    Probe 
Displacement   Spanwise    (Suction   Side) 
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Vl/Vref  VS  PROBE  DISPLACEMENT 
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Figure  17.   Loss  Survey:  Vl/Vref  vs.  Probe 
Displacement,  Blade-to-Blade 
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Figure  18.   Loss  Survey:  Pref-Ptl/Qref  vs.  Probe 
Displacement,  Blade-to-Blade 
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Figure  19.   Loss  Survey:  Betal  vs.  Probe 
Displacement,  Blade-to-Blade 
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Figure  20.   Loss  Survey:  V2/Vref  vs.  Probe 
Displacement,  Blade-to-Blade 
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Pref-Pt2/Qref  VS  PROBE  UISPLRCEMENT 
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Figure  21.   Loss  Survey:  Pref-Pt2/Qref  vs.  Probe 
Displacement,  Blade-to-Blade 
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BETR2    VS   PROBE    UISPLRCLMENT 


Figure    22.      Loss    Survey:    Beta2    vs.    Probe 
Displacement,    Blade-to-Blade 
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Figure  23. 


Surface  Pressure  Distribution 
Cp  vs.  X/C 
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Figure  24. 
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V.   CONCLUSIONS  AND  RECOMMENDATIONS 

Preliminary  probe  surveys  were  conducted  at  an  inlet 
flow  angle  of  48  degrees  using  data  acquisition  software 
specifically  written  for  the  Hewlett  Packard  300  PC  and 
associated  acquisition  hardware.  From  the  study,  the 
following  conclusions  were  drawn: 

1.  At  an  inlet  flow  angle  of  48  degrees,  there  was  a 
vanishing  core  of  two-dimensional  flow  at  the 
downstream  survey  station. 

2.  The  blade-element  performance  quantities  derived 
from  the  measurements  were  consistent  with  previous 
results  at  lower  angle  settings. 

3.  Software  for  calibrating  five-hole  pneumatic  probes 
was  revalidated  and  made  available  for  use. 

4.  New  software,  for  acquiring  and  reducing  probe 
survey  data  to  obtain  the  AVDR  and  loss  coefficient, 
was  written  and  verified. 

5.  The  facility,  instrumentation  and  procedures  are 
available  for  making  accurate  off-design  loss 
measurements  on  a  routine  basis. 

Recommendations  focus  on  improving  results  which  can  be 
obtained  using  pressure  probe  surveys  in  this  facility. 
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(Recommendations    concerning    the    software    are   given 
separately  in  Appendix  B. )   The  recommendations  are: 

1.  Make  probe  surveys  closer  to  the  trailing  edge  of 
the  blade  to  reduce  the  effects  of  side-wall  boundary 
layer  buildup  on  the  two-dimensionality  of  the  flow. 

2.  Redesign  the  front  wall  of  the  cascade  tunnel  to  be 
made  of  lighter  materials  and  of  modular  construction. 
The  present  facility  requires  a  high  capacity  overhead 
hoist  to  remove  the  wall  to  modify  the  cascade 
geometry.  The  modular  construction  would  provide  the 
means  to  expand  the  coverage  of  pneumatic  and  hot-wire 
probe  surveys  without  sacrificing  the  quality  of  the 
flow  through  the  test  section.  A  design  with 
interchangeable  window  and  survey  panels  would  provide 
greater  access  for  the  LDV. 

3.  Dreon's  [Ref.  4]  recommendations  concerning 
calibrating  the  probe  in  yaw  and  automating  the  probe 
traverses  are  reiterated. 

4.  Incorporate  the  use  of  highly  accurate  linear 
variable  displacement  transducers  (LVDT)  in 
implementing  item  3. 

5.  Consideration  should  be  given  to  using  two  probes 
simultaneously  to  conduct  the  survey  (the  software  has 
this  provision)  to  avoid  the  danger  of  damaging  the 
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probe  during  transfer  to  and  from  the  upper  and  lower 
traverse  slots. 

6.  Use  the  LDV  system  to  obtain  an  accurate  probe 
angle  reference  as  shown  in  Appendix  C. 

7.  At  the  present  and  any  higher  inlet  angle  settings, 
fully  map  the  downstream  flow  field  to  better  establish 
flow  quality  and  degree  of  two-dimensionality. 

8.  Extend  the  blade-to-blade  surveys  to  conclusively 
establish  periodicity. 

9.  Employ  the  cascade's  boundary  layer  suction 
provision  to  extend  the  range  of  two-dimensional  flow 
at  high  inlet  flow  angles. 
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APPENDIX  A 


PROBE  CALIBRATION 


Al.   INTRODUCTION 

A  five-hole  conical  probe  was  calibrated  in  a  7"  free 
jet  facility.  The  calibration  process  involved  acquiring 
the  data  necessary  to  calculate  the  probe  coefficients, 
beta  and  gamma,  for  various  probe  pitch  angles  and  free  jet 
flow  velocities.  Beta  and  gamma  can  be  shown  (Appendix  A, 
Ref.  12)  to  be  functions  of  Mach  number  and  pitch  angle 
(phi)  when  the  probe  is  balanced  (no  yaw).  The  values  of 
beta  and  gamma  over  the  range  of  flow  velocities  and  pitch 
angles  tested  are,  in  turn,  used  to  determine  a  set  of 
probe  calibration  coefficients  for  polynomial  expressions 
for  Mach  number  and  phi  in  terms  of  beta  and  gamma  [Ref. 
12].  From  the  polynomial  expressions,  the  Mach  number  and 
pitch  angle  can  be  determined  when  the  five-hole  pneumatic 
probe  is  immersed  and  balanced  in  an  unknown  flow. 

In  the  reduction  program  "CALC"  [Appendix  B],  beta  and 
gamma  are  calculated  from  the  pressures  sensed  by  the 
probe.  The  files  containing  the  probe  calibration 
coefficients  are  accessed  by  "CALC"  and  the  coefficients 
are  made  available  to  the  subprogram  Xphicalc  where  the 
non-dimensional  velocity  X  and  pitch  angle  phi  are 
calculated.  The  relation  between  X,  Mach  number  and  other 
quantities  involved  in  the  calculation  of  the  loss 
coefficient  can  be  seen  in  Table  I. 
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Section  A2  describes  the  calibration  apparatus.  The 
calibration  test  program  is  addressed  in  Section  A3. 
Results  and  discussion  in  Section  A4  are  followed  by 
Recommendations  in  Section  A5.  Tables  of  data  produced 
during  the  calibration  of  the  cone  probe  used  in  the 
present  study  are  contained  in  Section  A6. 

The  following  is  a  list  of  symbols  used  in  Appendix  A: 

PA         Atmospheric  Pressure 

PK         Total  pressure  as  sensed  by  the  Kiel  probe. 

PI  -  P5    Probe  pressure  parts  as  shown  in  Fig.  A2 . 
P23  (P2  +  P3)/2 

A2.   PROBE  CALIBRATION  APPARATUS 

A2 . 1   Hardware 

An  illustration  of  the  probe  calibration  apparatus  and 
picture  of  the  probe  are  shown  in  Fig.  Al  and  Fig.  A2 
respectively.  The  probe  port  numbering  is  also  shown  in 
Fig.  A2.  The  7  inch  diameter  free  jet  receives  air  from 
the  Allis  Chalmers  compressor.  Flow  rate  is  controlled  by 
a  hand  operated  valve  near  the  free  jet  attachment  to  the 
settling  chamber.  Honeycomb  flow  straighteners  remove 
swirl  and  the  nozzle  acceleration  generates  a  nearly 
uniform  velocity  profile  at  the  probe. 

A  United  Sensor  5-hole  conical  probe,  #DC-125-24-F- 
22-065-4"  was  mounted  vertically  on  top  of  the  free  jet 
frame.  A  special  mount  allowed  the  probe  to  be  yawed, 
pitched  and  translated  i.e.,  the  immersion  distance 
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Figure  Al .   Probe  Calibration  Apparatus 
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Figure  A2 .   Five-Hole  Conical  Probe 
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could  be  varied.  In  this  case,  the  immersion  distance  was 
fixed  to  read  7.1  on  the  vernier,  allowing  the  probe  to  be 
rotated  about  its  tip. 

A  combination  Kiel  and  thermocouple  probe  was  mounted 
horizontally  and  positioned  into  the  flow  to  read  total 
pressure  and  temperature. 

Two  water  manometers  were  mounted  next  to  the  free 
jet.  Pressures  from  conical  probe  ports  2  &  3  were  fed  to 
each  side  of  one  manometer,  thus  allowing  the  probe  to  be 
balanced  in  yaw.  Total  pressure  as  sensed  by  the  Kiel 
probe  (PK)  was  fed  to  the  other  manometer  to  allow  the 
total  flow  of  the  free  jet  to  be  adjusted  and  monitored. 

A  Scanivalve  rated  at  2.5  psid  sampled  the  conical 
probe  pressures  in  addition  to  the  Kiel  probe  and 
atmospheric  pressures.  A  scanner,  Scanivalve  controller, 
and  digital  voltmeter  (DVM)  were  used  in  conjunction  with 
the  Scanivalve  to  convert  the  pressures  to  digital  form  for 
subsequent  storage  and  reduction. 

Data  acquisition  software  was  run  on  the  Hewlett 
Packard  9830  computer  and  associated  peripheral  components. 
The  HP  9830  system  primarily  was  used  to  record,  store,  and 
reduce  the  Scanivalve  and  thermocouple  output  while  the  HP 
21MX  system  performed  the  calculations  to  generate  the 
probe  calibration  coefficients. 

A2.2   Software 

The  primary  acquisition  program  was  PRBCAL.  Entries 
consisted  of  atmospheric  pressure  in  inches  Hg,  number  of 
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separate  probe  pitch  angles  (maximum  of  12),  Scanivalve 
number,  temperature  channel  and  number  of  samples  to 
average  (normally  five).  The  program  acquired  the  data  for 
each  probe  pitch  setting,  then  stopped  to  allow  the  user  to 
change  the  pitch  setting  and  balance  the  probe  before  data 
was  again  acquired.  After  all  pitch  settings  had  been 
sampled,  the  program  prompted  the  user  for  a  six  element 
alphanumeric  file  name  for  the  data  to  be  stored.  This 
file  had  to  be  opened  prior  to  running  PRBCAL.  After  the 
file  name  was  entered  in  response  to  the  prompt,  the 
reduced  data  was  printed  in  the  form  of  Tables  Al  -  A3. 

The  program  PRBRED  generated  probe  coefficients  and 
other  parameters  from  the  PRBCAL  data  files.  PRBRED,  used 
in  conjunction  with  the  "KEY"  program  PLOTK,  allowed  probe 
coefficients  to  be  plotted  against  pitch  angles.  The  PLOTK 
program  required  some  familiarity  with  Hewlett  Packard 
plotting  procedures. 

CALI2  provided  the  means  to  transfer  data  files  from 
the  HP  9830  system  to  the  HP  21MX  system.  This  was 
required  since  the  9830  system  does  not  have  the  capability 
to  generate  the  calibration  coefficients.  PRBCAL,  PRBRED, 
PLOTK  &  CALI2  were  on  disc  SHREEVE  P007. 

A  data  transfer  program,  also  named  CALI2,  was  loaded 
and  run  on  the  HP  21MX  when  CALI2  was  run  on  the  HP  9830. 
The  raw  data  files  were  transferred  and  probe  calibration 
quantities  were  calculated  by  the  HP  21MX  programs  as  shown 
in  Tables  A4  and  A5.   The  program  JOHN3  combined  the 
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TABLE   Al.       TABULATED    SCALED   DATA   OUTPUT   BY 
PRBCAL    (DATAFILES    CV   =    100;    CV   =    150) 


RflW 


AT  NO 


DATA  UITH  VOLTAGE 

CORRECTED  TO  PRESSURES 

aN.H20> 

•' 

' 

FA-PA 

PCflL-Pfl** 

PI -PA 

P23-PA 

P4-PA 

P5-FA 

PI 

-PA 

** 

PH 

0. O04O 

34.518  **■ 

2.4O20 

-0. 16  30 

0.2420 

-0. 

4740 

2. 

336 

#$ 

-6. 

0 

0. 0240 

34.468  ** 

2.4120 

-0. 14  30 

0 . 1 1 80 

-0. 

3980 

C   . 

340 

*  * 

-4. 

n 

0. 0400 

-0.048  ** 

2. ^?60 

-0. 1270 

0. 082? 

-0. 

3580 

2." . 

3'6 

*■» 

-3 

0 

0. 0240 

-0.030  ** 

2.33^0 

-0. 1270 

O.O540 

-0. 

3180 

2 

.154 

i  * 

-2 

0 

0.0520 

-0.044  ** 

2-3130 

-0. 1130 

0.01 20 

-0. 

25*0 

2 

326 

4* 

-  i 

0 

0.  0  360 

-0.036  ** 

2.3020 

-0. 1240 

-0. O320 

-t. 

2100 

2 

342 

* " 

<? 

0 

0. 0440 

-O.053  ** 

2.2780 

-0. 1330 

-0. 1266 

'0. 

198? 

2 

306 

1 

0 

6.0500 

-0.O2O  ** 

2.3280 

-0. 1160 

-0. 1140 

-0 

1220 

2- 

338 

2 

0 

6.0340 

-0.054  ** 

2. 2380 

-0. 1270 

-0. 1720 

-0 

0980 

2 

318 

* 

3 

0 

0. 0480 

-O.050  ** 

2.3180 

-0. 1290 

-O.23P0 

-0 

0260 

2 

320 

*  * 

4 

0 

0.0420 

-0.046  ** 

2.2960 

-0. llOO 

-O.2560 

0 

02OO 

2. 

3«.1 

•  ' 

6 

.0 

OS.  PRESS.  <IM.HG) 

TEMPERATURE  <F> 

30. 

06 

38. 

61 

30. 

06 

99. 

43 

30. 

06 

100, 

07 

30 

06 

100 

58 

30 

06 

100 

92 

30 

06 

10] 

29 

30 

06 

101 

32 

30 

06 

101 

60 

30 

06 

101 

76 

30 

06 

101 

93 

30 

06 

102 

.27 

I'M  I A  STORED  IN  CV=100 

RAH  DATA  WITH  VOLTAGE  COPREC'ED  TO  PRESSURES* IN. H20 


A 1 110 


PR  -PA 

FCAL-FF 

1*  \r 

PI-PA 

P23-PA 

P- 

I-PA 

P5-FA 

PI 

:>PA 

## 

PH 

[ 

0. 054  0 

32. 9O0 

■  * 

5. 330O 

-0. 34 30 

0. 

5460 

-1. 

G200 

t 

326 

** 

—6 

0 

0  0200 

32.924 

** 

5.3360 

-O. 3010 

0. 

330O 

-0 

35  4  0 

5 

284 

** 

-4 

0 

'.'.  O?60 

-0.  0  3l' 

** 

5.2540 

-0. 2820 

0. 

176i.'j 

-Q 

.0H5 

cr 

292 

#* 

-3 

0 

0.  U.>"0 

-0. 012 

#« 

5.2530 

-O. 2680 

0. 

104M 

-O. 

6930 

E7 

320 

## 

—  c 

0 

0. 0040 

-O.OIO 

*  * 

5. 2560 

-0. 2630 

o. 

0  1  0l;l 

-0. 

6220 

C" 

292 

** 

-1 

0 

0. 0  360 

-0. 023 

.** 

5.2520 

-0.248O 

-0. 

0320 

•  0. 

5  320 

cr 

306 

*  + 

ft 

o 

0. 0600 

-0.07? 

*  « 

5.2940 

-0. 2330 

-0. 

1640 

-0. 

4160 

5 

314 

iti 

i 

n 

0. 0640 

-O. 066 

*  * 

5.2740 

-0.227O 

-0. 

2  380 

-0. 

2920 

C" 

33* 

.'  * 

2 

0 

0. 0900 

-0. 086 

*  * 

5.2940 

-0.2120 

-0. 

3200 

-  0. 

1940 

cr 

34* 

■  t 

■:• 

n 

0. 0740 

-0. 064 

*■'* 

5.2260 

-0.24  10 

-0. 

4  380 

-13. 

1140 

5 

276 

** 

4 

0 

0. 1000 

-O. 098 

## 

5.2568 

-0.26  3O 

-0. 

600P 

'?. 

1060 

5 

•^t  O  '• 

6 . 

0 

OS.  rRESS.  CN.HG) 

TEMPERATURE  <F> 

30 

09 

109. 

50 

30 

09 

189. 

70 

30 

09 

109. 

70 

30 

09 

109. 

73 

30 

09 

109. 

70 

30. 

09 

109. 

77 

30 

09 

109. 

70 

30. 

09 

109. 

77 

30 

09 

109. 

80 

30 

09 

189. 

77 

38 

89 

109. 

84 

DATA    STORED    IM    CV=150 
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TABLE   A2.       TABULATED    SCALED    DATA   OUTPUT   BY 
PRBCAL    (DATA    FILES    CV    =    200,     CV    =    250) 


RON    DATA    WITH    VOLTAGE    CORRECTED    TO    PRESSURES'  III.  H2'.V> 


PA- PA 

PCAL-PA** 

PI -PR 

P23-PA 

P^ 

I-PA 

P5-PR 

PI 

-PR 

** 

PH! 

[ 

0. 0100 

0.014 

*# 

9.1660 

-0.636O 

0. 

95*.  d 

-1.8500 

9. 

350 

** 

-6 , 

0 

-0.0160 

-0.014 

** 

9.2660 

-0.57O0 

0. 

5600 

-1.560O 

9, 

364 

** 

-4. 

ft 

-O.0520 

-0.062 

** 

9.2540 

-0. 5410 

0. 

39  50 

-1.4320 

9, 

348 

## 

-3 . 

.  0 

-0.0700 

-0.070 

** 

9. 3000 

-0. 5010 

O. 

1 "  3».i 

-1.2740 

9. 

380 

** 

-2 . 

0 

-0. O400 

-0.030 

** 

9.31O0 

-0.4616 

O. 

0'JO-;; 

-1.0940 

•a# 

372 

** 

-1. 

0 

-O.0160 

-0.020 

** 

9.3OO0 

-0.486O 

-0. 

342K 

-0. 7820 

9, 

352 

#* 

1. 

,0 

-0. O200 

-0.024 

** 

9.2560 

-0. 4690 

-0. 

486  O 

-0.608O 

9. 

344 

** 

2 . 

,0 

-0.O380 

-0.044 

** 

9.2840 

-0.453O 

-0. 

62'VO 

•  -0.438O 

9, 

364 

*» 

3. 

0 

-O.0320 

-0.032 

** 

9.2140 

-0.4670 

-O. 

7720 

-0.2440 

9, 

326 

** 

4, 

,  0 

-0.0300 

-0.024 

** 

9.2360 

-0.519O 

-i. 

1  OOO 

O. 1280 

9, 

334 

** 

6, 

,  0 

MOS.  PRE? 

;S.  (IH.HG) 

TEMPERATURE  <F> 

30. 

10 

108. 

45 

30. 

10 

108. 

38 

30. 

10 

108. 

24 

30. 

10 

108. 

34 

30. 

10 

103. 

55 

30. 

10 

108. 

75 

39. 

10 

108. 

72 

30. 

10 

108. 

72 

30. 

10 

103. 

i  1  J 

30. 

10 

108. 

35 

30. 

10 

108. 

99 

DRTR    STORED    IN    CV=200 

RAW    DRTR    WITH    VOLTAGE    CORRECTED  TO    PRESSURES^'  j    H28  > 

PR-PR  PCRL-PR**  PI -PR  vi-cn 

0.1040  32.980    **  14    d^g  _f    ,^fl            ff*PB  P5-PR  PI  -PA    **    PHI 

-0.3400  32.978**  H6340  -J'wi!  '  .V  L*  ?,*  "3.1188  14.556**   -6. 0 

-0.0160  32.970    **  14    sprr  -n'onqn  2'fff"'  ----'020  14.658    **    -4.0 

-0.0460  32.884**  14    7120  -n'lrla  «'  61-':''  '•-'■£320  14.668**    -3.8 

-0.0140  32.643    **  14.'*fi40  .0^  a'lkP-  "1-9940  14.683    **    -2.0 

-0.0320  -O.024    **  J   SS  4:JgJ  *'***{  -J.JJOT  14.644    **    -1.0 

-0.yt.20  -O.O50    **  14.6960  -8   6750  S'Sl5«  -1.4688  14.764**      0.0 

-0.2620  -0.258    **  14    7628  -B«  -8.45...M  -1.2160  14.782    **       1.0 

-0.0400  -8.858**  14   5180  -n-U-n  ~f'j*8«  -8.7888  14.888**      2.8 

-0.0720  -O.OfiO    **  14's^oo  R77cft  "J«y34ti  -8.7520  14.622**      3.0 

-0.O580  -0.056**  14.'e380  -eleelfi  -t'ZIln  "I' till  |4-684**      4.0 


ATMOS.    PRESS      <IN.HG>  TEMPERATURE    <r 

It'      .  >87-26 

|J-  187.12 

38.11  107.12 

30.  |07. 09 

30.11  107. n 

ci-n  107.2^ 

3® '11  107.29 

3J.11  .                                 107. fl 

30.1!  107.33 


HA  I  A    STORED    IN    CV=258 


-1.916<.'  8.8968         14.758    **      6.0 
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TABLE   A3.       TABULATED    SCALED    DATA    OUTPUT    BY 
PRBCAL    (DATA    FILES    CV    =    300) 


RAW    DATA    WITH    VOLTAGE    CORRECTED    TO   PRESSURES'  IN.  H?..j; 


PA-PA 

PCAL-PA»* 

PI -PA 

P23-PA 

P< 

l-P,l 

P5-PA 

?\ 

'.-PA 

** 

PHI 

0. 0320 

30 

956 

** 

21. I960 

-1.5050 

2. 

230s) 

-4. 

3800 

21 

458 

** 

-6.0 

0. 0089 

30 

188 

»* 

21.3360 

-1.2700 

I! 

320O 

™"3  ■ 

6400 

21 

4SO 

#*• 

-4.0 

O.0140 

2? 

022 

** 

21.4420 

-1. 1880 

0. 

93SO 

-3. 

3260 

21 

524 

** 

-3.0 

0. 0040 

28 

518 

*» 

21.5880 

-1. 1510 

0. 

478-. 

-2. 

9640 

21. 

612 

s  * 

-2.0 

0. 02S0 

£.4 

730 

*# 

21.4020 

-1.1010 

0. 

1000 

-2, 

5800 

21. 

448 

** 

-1.0 

0. 0040 

27 

048 

** 

21.3080 

-1.038O 

-0. 

29  20 

"  C  i 

2O20 

21 

334 

** 

0.0 

O.0120 

26 

554 

** 

21.302O 

-1.022O 

-0. 

7  lOYi 

-1 

7840 

21 

O  Ji- 

*-> 

1.0 

0. 0260 

25 

724 

** 

21.3680 

-1.0270 

-1. 

1  54  U 

-1 

4600 

21 

533 

** 

2.»"i 

0. O4S0 

25 

240 

#* 

21.5420 

-1 .06*0 

-1. 

'J440 

-1 

0620 

21 

664 

** 

3.  0 

0.0160 

24 

756 

♦  * 

21.4160 

-1. 1220 

-1. 

9861=1 

-0 

6700 

21 

542 

** 

4.0 

0. 0040 

24 

156 

♦  * 

21.4520 

-1.34.-:0 

-3 

i  i  w 

0 

14  00 

21 

656 

** 

6.  O 

OS.  PRES 

;s. 

! IH.HG) 

TEMPERATURE  (F) 

30. 

12 

107 

50 

30. 

12 

107 

56 

30. 

12 

107 

50 

30. 

12 

107 

If. 

3° 

12 

107 

46 

30. 

12 

107 

70 

30. 

12 

107 

80 

■■0. 

12 

107 

80 

0. 

12 

107 

•  i 

30. 

12 

107 

77 

30. 

12 

107 

.SO 

LATA    STUPED    IH    CV=300 
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TABLE   A4.       TABULATED   REDUCED   DATA   OUTPUT   BY    CALI2 
(DATA    FILES    CV    =    100,     CV    =    150,     CV    =    200) 


IH'-:Jx,7A    FROM .  HA1A    RET.  f._l_0F    F  II  E_£  VsJ.fi.  0_  ARE 


Be  t  n 

r»"nnn 

tvi  tci 

X  v«1 

Hnrhnn  . 

Phi. 

T 

1  imnc  I 

006250 

. 279142 

.  nn<745 

.  0  40063 

. 089655 

-6 

,  on n ii nn 

98 

,61.111  76 

006225 

.201957 

. on 1257 

.  0*0369 

.0901  in 

-4 

,  o  o  o  0  n  n 

9? 

,  425010 

nns97f) 

.  17937? 

.  001.073 

.040458 

.  090541. 

-3 

.  n  n  n  n  n  n 

1  no 

. 06931 0 

0  06007 

,  mn«?  1 3 

.onn<707 

.  0 4 0 307 

.  0903B3 

_*".> 

,000000 

100 

,  r,7oooo 

nil  5936 

. 107553 

. 000638 

. 010393 

.090393 

-1. 

,000 0 0 0 

1  on 

.  9 1  7 1  0  l> 

0n?913 

.07*669 

. 0004^3 

.  0*0390 

.  090309 

0 

,000000 

101, 

,390100 

0  0588B 

,  029B01 

.000175 

.  0 <*0 1  54 

,089058 

1 

,  o  o  n  o  o  o 

1  01 

, 3240  1  0 

n  <lr;9t;«6 

,003373 

. 000019 

.  0  <o/)76 

.090581 

p 

,00000  0 

101 

,595310 

nits  91  f) 

-. 030515 

-.  onmRO 

,  o-ioi ./.n 

.089892 

3 

,  n  n  o  ii  o  o 

1  01 

, 764000 

II  0596  7, 

- . 0B3367 

-.  O00497 

. 040306 

. 070201 

4 

0  0  0  0  0  0 

101  , 

934"nn 

0  0586  4 

--.  1H71.1 

-. 0  00673 

. 040158 

. 09054i 

6 

on  no  no 

1.03 

,373500 

'IMF    DATA    FROM    DATA    BET    t    1    OF    FILE    CV=150    ARE 


It,'  t  n 

Rfinnn 

Delta 

V  vrl 

M"i  hn  0  . 

P  1)  i 

T 

lur.n--  1 

II  1  771. 1 

, 276044 

.  0  077ns 

.  1)6  0  700 

. 136177 

-6 

.  n  0  (i  0  0  n 

109, 

49631 0 

.  in  3625 

.310041 

.  002B62 

'.  060  359 

.  13531.2 

-4 

.000000 

109 

,69 90 no 

.  m  330.3 

. 17O3B0 

. 0023B7 

. 060  438 

. 135390 

-3 

.  n  0  n  0  n  n 

1  0  9 

,699X00 

. 01 3359 

.145132 

. 001939 

. 060595 

. 135744 

.  ...p 

,000000 

1  09 

717,7011 

.  m  3355 

. 1 1 441 n 

.  nni  <-;?n 

.  0  6  n  3 1.  2 

.  13=51  OB 

-1 

,  0  0  0  0  0  0 

1  09 

,6998  0  0 

. 0 13296 

.  OBI  B1.P 

.  nm  nop 

.060573 

. 1 35696 

0 

.  0  0  0  0  n  0 

1  09 

,767590 

01.33^9 

.  045594 

,  0  0  n  <,  0  9 

.  060754 

. 136102 

1 

,00000  0 

1  09 

, 6990H 0 

.  n  1  3296 

.009816 

.000131 

.060911 

. 136455 

p 

,000000 

109, 

767590 

.013307 

- . 0??Rni 

-.  on  inns 

,06110 3 

.  1.36885 

■7 

,00000  0 

1  09 

,801.5110 

.  0 1 331 5 

-, 059265 

-. onn7P3 

. 060620 

. 135799 

4 

,000000 

1  09, 

767590 

. 013339 

_ _ \ ?79pp 

-.001706 

, 061 080 

. 136835 

6 

,  0  0  0  0  0  0 

1.09, 

,  B3MO0 

THE.  DATA    FROM  ..DAI  A    S.F  T    t    1    OF    FILE    CV=200    ARF 


Re  t  n 

0'innn 

Do  1  to 

X  vel 

Mor  hno . 

Ph  i 

1 

I  imne  i 

. 0234 60 

. 386368 

.  006718 

.  079903 

.  1.792  4? 

-6 

,000000 

1  08, 

,4  451 0  0 

. 023542 

.216348 

.  005093 

, 080073 

, 179624 

-  4 

,0000  00 

108. 

,  3777.00 

0234  43 

. 186030 

.004380 

. 00 01 58 

. 1 7981 7 

-  3 

,000000 

1  08 

,  ?i|!  5711 

. n 23454 

. 1 461  OR 

. 003427 

.000369 

. 180293 

.-O 

,  o  ii  o  n  o  o 

108, 

3  43  4  00 

. 023383 

. 1 1708! 

.002738 

. 000208 

.  179931. 

-1 

,000000 

1  08 

,  5468 »i  II 

. 023077 

.07B7H0 

. 001B24 

.079634 

. 17B612 

0 

.000000 

1  08, 

,75031 o 

. 023421 

. 04496? 

.001 053 

. 0B0022 

,  17951.1. 

1 

,000000 

1  08 

,7164'tO 

. 023277 

,012545 

. 000292  ' 

.080  0  05 

.  177472 

o 

,  o  n  o  o  o  o 

1  08, 

716400 

, 023303 

-.019102 

-.000445 

, 080166 

,  179835 

3 

,000000 

1  08 

,  75011 0 

.  0  231.73 

-.054540 

-.001264 

.079981 

.179417 

4 

,000000 

108, 

85201 0 

. 0  23349 

-. 12588  4 

-.0  02939 

. 080  0  06 

.  179474 

6, 

0  0  0  0  0  0 

1  OR 

, 9B7570 
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TABLE  A5.   TABULATED  REDUCED  DATA  OUTPUT  BY  CALI2 
(DATA  FILES  CV  =  250,  CV  =  300) 


THE    DATA    FROM    T)(\\  rt    5F  t     t    1    OF    FILE    rv=?'".0    APC 


p,-.  ta 

ROHMH 

Del  ta 

X  vpl      H'irhno, 

Phi 

T 

Tunru»1 

0 3682a 

.777731 

.010074 

,098082 

225196 

-6 

o  o  o  o  n  o 

1  0  7 

7501 90 

036603 

.?i  9476 

.  00003P 

. 0  977  0  7 

771060 

-4 

o  a  o  o  o  o 

1  07 

1 22600 

0  36375 

. 184971 

.  006770 

. 099734 

2241? 9 

-3 

0  0 0  0  0 0 

1  07 

122600 

036584 

.  1  49  7^0 

.  005460 

. 099026 

224339 

-.1 

0  0  0  0  0  0 

107 

1 22600 

036487 

.  1  1  ^621 

.  001719 

. 099573 

223764 

-1 

0  0  0  0  0  0 

1  0  7 

ORH70  0 

036P7.3 

,  0O2306 

.  nn??m 

. 1 00O31 

224804 

0 

o  o  o o  o  0 

1  0  7 

190  4  00 

036303 

.  019411 

.001 795 

.  1  0  n  1  9 1 

225166 

1 

0  0  0  0  0  0 

1  07 

75«1 "0 

03600 1 

.  ommo 

. 0  0  0666 

,ini 176 

227402 

2 

0  0  0  0  0  (I 

1  07 

P501 "" 

036034 

--.  0  1 0497 

-.  0  0  0666 

.  o?9'-,rt7 

?r:v/'?t, 

3 

oooo  o  o 

1  0  7 

7971  I'O 

D^MW 

- . 053966 

-.  001957 

.  (»9?900 

771507 

4 

0  0  0  0  0  0 

1  0  7 

156490 

036674 

- . 1795R9 

-.  001753 

.10IMI71 

224896 

6 

oooooo 

1  0  7 

3261 OO 

IHF     PAIA    FROM    PA  I  0    OF  1     *     1    OF    FILE    CV-300    ARF 


052799 

. 291177 

. 015371 

1 20303 

770  971 

-6 

0  0  0  0  0  0 

052556 

.25  9411 

.011^31 

17IM71 

771.159 

-4 

0  0  0  0  0  0 

1  0  7 

563400 

052598 

. 107.177 

.  0  0991 1 

170607 

271 668 

-3 

0  0  0  0  0  0 

1  0  7 

49*^.1  0 

052036 

. 15137  0 

,007998 

1 20796 

2771 0  1 

™  O 

0  0  0  0  0  0 

1  07 

360 00 Q 

05P306 

. 1 1 9095 

. 006779 

120439 

7717111 

-  i 

0  0  0  0  0  1! 

1  '17 

461.70  0 

051956 

. 0RS474 

.00  1441 

1 70  0  17 

270377 

0 

0  0  0  0  0  0 

1  0  7 

6991 00 

0  519  01 

. 0  4H1 1 0 

. 0071P7 

1  201  35 

270509 

1 

0  0  0  0  0  0 

1  0  7 

(10  0!  MM) 

O5P059 

.  01  3664 

. 000711 

17067(1 

2710 50 

n 

0  0  0  0  0  0 

1  07 

O  o  o  n  o  0 

057535 

-.071310 

- . 001 170 

1 71 070 

7' '774  1 

3 

0  0  0  0  I)  0 

1  (t7 

76/.?  1  0 

0 52307 

- . osni9  0 

-.003059 

J  70AM 

771793 

4 

0  0  0  0  0  0 

1  0  7 

76691 0 

05298.1 

- . 1 47575 

-. 007554 

170  937 

777423 

'  6 

oooooo 

107 

oooooo 
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separate  files  generated  during  CALI2  execution  into  a 
single  file  consistent  with  the  format  required  for  the 
J0HN4  program.  (A  tabulation  of  J0HN3  data  is  not  included 
since  the  quantities  are  the  same  as  those  listed  in  the 
separate  files  of  CALI2.)  J0HN4  produced  a  surface  plot  of 
the  data  (Figs.  A3  and  A4 )  and  generated  a  matrix  of  the 
probe  calibration  coefficients  (Table  A6 ) .  Figures  A3  and 
A4  are  plots  of  the  actual  data  generated  from  the  probe 
calibration  process,  while  the  ERRORS  (%)  at  each  point  in 
Table  A6  quantitatively  show  the  difference  between  the 
data  points  in  Figures  A3  and  A4  and  the  "best  fit"  surface 
at  the  given  values  of  beta  and  gamma.  The  "best  fit" 
surface  was  given  by  the  polynomial  expressions  previously 
cited  [Ref.  12]  using  the  matrix  of  calibration 
coefficients  produced  by  J0HN4 ,  and  tabulated  in  Table  A6 . 
J0HN4  produced  a  matrix  of  coefficients  and  also  associated 
tabulation  of  errors  at  each  point  for  increasingly  higher 
order  polynomials.  The  user  was  required  to  make  the 
choice  of  what  order  polynomial  gave  the  best  fit  to  the 
actual  data  by  an  examination  of  the  errors  at  each  point, 
associated  with  the  use  of  polynomials  of  different  orders. 
It  is  noted  that  the  program  prompts  the  user  for  the  M  and 
N  order  of  the  "best  fit"  polynomial.  The  coefficients  are 
presented  in  an  M  by  N  matrix  where  M  represents  column 
values  and  N  represents  row  values.  The  polynomial  order 
entered  is  thus,  M-l  and  N-l,  since  the  polynomial  order  is 
one  less  than  the  number  of  coefficients  that  it  requires. 
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Figure  A3.   Surface  Plot  of  Phi.  vs 
Gamma  and  Beta 
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Figure  A4 .   Surface  Plot  of  X  (velocity) 
vs.  Gamma  and  Beta 


57 


TABLE  A6.   BEST  FIT  CALIBRATION  COEFFICIENTS 

SELECTED  USING  JOHN4  WITH  ASSOCIATED 

ERRORS 


COFFFICIENTP  FOR  THF  CALIBRATION  SURFACE  STORED  IN  FILE  IMIKEC3 


1 
,•» 

3 

.015? 
.080" 

36      4 
/•3 

98    -24 
1 

.933133 
.699505 
,844173 

2 

-1^3.668760 

-63.977361 

1980.495400 

3 

3137.961 400 

3068.373100 

-57799.7030 

4 

-34399 
-3087? 
541835 

.8050 
1400 
5PO0 

5 

RRt 

1RS(I>  AT 

EACH  POINT 

1 

i 

1 

-,5«;6 
l.nni 

-.  4in 

-1.898 
-.463 
-.364 

3 

1.133 
.161 
.076 

4 

.319 
.  1M 
.339 

'5 

.533 

-.650 

.373 

-.' 

6 

499 
3S7 

nn 

7 
-.135 
-.411 

-.093 

8 

-.007 

-.051 

.137 

9 

-.467 

.173 

.  225 

10 

-.595 

-.353 

.101 

11 

.641 

.303 

-.359 

4 

5 

.137 

-.  064 

1 

.335 
.139 

2 

.199 

.893 

3 

- 

.393 
.0^0 

4 

-.7B"5 
-.037 

5 

-'. 

114 

313 

6 

-.  ieo 

-.173 

7 

1.335 

.166 

8 

-.316 

.313 

9 

-.085 

.OP  A 

10 

-.034 

-.  087 

11 

COFFFICIENTP  FOR  THE  CALIBRATION  SURFACE  8TORCD  JN  FILE  IMIKEC3 


1 

.n33<;35 

3 

-.5^7480 

3 

.7581^0 

1 

2  3 

3.17B730  -199.593870 

11.194368  -778.373950 

•183.145780  13999.86900 

2  3 


5134.303700 
31633.67100 
-351917.690 

4 


-45091 .8980 
- 188^56.  3*0 
3136813.000 

5 


ERRORS(DEPREES)  AT  EACH  POINT 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

M 

1 

-.071 

-.358 

.097 

.388 

.049 

-.158 

-.305 

.010 

•  .013 

-.569 

.486 

3 

.  084 

-.017 

-.004 

-.033 

.030 

.049 

-.038 

-.075 

-.018 

-.051 

.041 

3 

-.  049 

-.  056 

.094 

-.  083 

.07S 

-.034 

-.036 

.035 

.  096 

.053 

-.  056 

4 

-.079 

.176 

.071 

-  .047 

-.080 

-.078 

-.050 

.059 

.006 

.016 

-.  008 

5 

.  060 

-.  054 

.019 

-.069 

-.000 

.008 

-.053 

.006 

.  097 

.103 

-.  084 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
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A3.   TEST  PROGRAM  AND  RESULTS 

The  calibration  was  conducted  at  five  flow  velocities: 
nominally  100,  150,  200,  250  and  300  ft/sec.  At  each 
velocity,  the  probe  was  moved  to  -6,  -4,  -3,  -2,  -1,  0,  1, 
2,  3,  4,  6  degrees  of  pitch  (phi)  and  balanced  so  probe 
port  P2  and  P3  pressures  were  equal  on  the  manometer.  The 
data  were  stored  in  files  CV=100  to  CV=300  on  disc 
SHREEVE  P007 . 

Prior  to  the  calibration,  a  survey  of  the  free  jet  was 
conducted  at  a  flow  of  approximately  200  ft/sec  to 
determine  the  velocity  profile.  The  survey  was  conducted 
from  top  to  bottom  and,  with  the  probe  mounted  on  the 
underside,  from  bottom  to  top.  There  was  some  overlap  in 
the  survey,  which  in  principle,  would  allow  the  departure 
of  the  jet  flow  direction  from  true  axial  to  be  resolved  by 
the  pitch  angle  indicated  from  the  two  sides. 

Data  collected  in  files  CV=100,  CV=200  and  CV=300  and 
subsequently  reduced  by  PRBRED  were  handplotted  to  show  the 
effect  of  pitch  angle  on  the  coefficients.  Fig.  A5  shows 
phi  vs.  beta,  where  beta  =  (P1-P23)/P1.  Fig.  A6  is  a  plot 
of  phi  vs.  betabar,  where  betabar  =  beta/(PK-PA)/PK) .  Phi 
vs  gamma  (P1-P4/P1-P23 )  is  shown  in  Fig.  A7  and  phi  vs. 
(P1-PK)/(PK-PA)  is  plotted  in  Fig.  A8 .  Free  jet  survey 
results  are  shown  in  Fig.  A9. 

A4.   DISCUSSION 

The  probe  calibration  data  presented  in  Figs.  A3-A9 
are   well-behaved   and   qualitatively   consistent  with  the 
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Figure  A5.   Phi  vs.  Beta 
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Figure  A6 .      Phi    vs.    Betabar 
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Figure  A7.   Phi  vs.  Gamma 
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Figure   A8 .      Phi   vs.    (PI    -   PK)/(PK   -   PA) 
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experience  of  previous  investigators  [Ref.  4  and  Ref .  12]. 
Data  quality  and  probe  characteristics  can  be  determined 
from  the  quantities  plotted  in  these  figures.  A  discussion 
of  the  results  in  each  plot  follows. 

Appendix  A  of  Ref.  12  shows  that  beta  is  a  function  of 
the  non-dimensional  velocity  X  and  phi  with  strongest 
dependence  on  X;  gamma  is  a  function  of  X  and  phi  but  most 
strongly  dependent  on  phi.  Fig.  A5  shows  that  as  the  pitch 
angle  was  changed,  there  was  very  little  change  in  beta  for 
a  given  flow  velocity.  Since  beta  is  related  to  velocity 
as  developed  in  Appendix  A,  Ref.  12,  the  plot  implies  that 
there  was  a  very  small  change  in  the  measured  velocity  by 
the  probe  with  pitch  variation,  or  that  beta  is  slightly 
sensitive  to  pitch.  The  greatest  variation  in  beta  is  seen 
in  the  data  from  file  CV  =  300.  Beta  varied  by  about  1.3% 
which  equates  to  about  a  1.1%  possible  variation  in 
velocity.  (Change  in  beta  equals  change  in  velocity 
squared. ) 

To  remove  the  variations  in  beta  due  to  changes  in  the 
free  jet  flow,  phi  was  plotted  against  betabar  (Fig.  A6 ) . 
By  dividing  beta  by  (PK-PA)/PA,  the  effect  of  the  changes 
in  flow  through  the  jet  are  removed.  The  plot  shows  only 
those  changes  in  beta  which  are  due  strictly  to  pitch  angle 
variation.  Ideally,  all  points  for  each  phi  should 
coincide.  Some  variation  is  seen  at  the  extreme  phi 
values;  however,  the  betabar  scale  is  over  expanded  by  a 
factor  of  two  compared  to  a  scale  appropriate  to  the 
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ability   to   resolve   the  measurements,  and  the  differences 
are  therefore  unneccessarily  exagerated. 

Figure  A7  clearly  shows  the  strong  dependence  gamma 
has  on  phi.  The  data  points  tend  to  be  more  closely 
grouped  in  the  -2  to  +2  deg.  range  with  the  lower  velocity 
points  slightly  more  separated  from  the  higher  velocity 
points.  Part  of  the  reason  for  this  difference  may  be  due 
to  pressure  errors  at  the  lower  jet  velocities  having  a 
larger  relative  effect  on  the  accuracy  of  the  data  points. 

Total  pressure  at  the  conical  probe  (PI)  and  total 
pressure  at  the  Kiel  probe  (PK)  should  be  nearly  identical 
when  phi  equals  zero.  One  would  expect  that  the  plot  in 
Fig.  A8  would  reflect  this,  however  it  does  not.  It  would 
be  expected  that  PI  and  PK  would  differ  with  pitch  change, 
accompanied  by  some  movement  of  the  data  points  away  from 
zero,  but  the  dispersion  of  the  data  in  this  plot  is 
difficult  to  explain.  The  general  trend  is  that  nearly  all 
points  are  less  than  zero,  implying  that  PK  is  generally 
higher  than  PI.  This  is  corroborated  by  the  free  jet 
survey  which  shows  that  the  Kiel  probe  was  immersed  in  a 
slightly  higher  velocity  region  than  was  the  conical  probe 
(see  Fig.  A9 ) .  Note  that  J0HN4  corrects  for  this 
difference  when  calculating  the  coefficients. 
Additionally,  it  is  pointed  out  by  Dreon  [Ref.  4]  that  the 
core  of  the  free  jet  has  a  0.05  degree  pitch  to  it.  The 
combination  of  a  nonuniform  velocity  profile  and 
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unsteadiness  at  low  flow  velocities  might  explain  some  of 
the  observed  scatter. 

A5 .   RECOMMENDATIONS 

The  recommendations   presented  here   focus  on  software 
and  hardware  improvements.   The  recommendations  are: 

1.  Restore  the  capability  to  generate  surface  plots  of 
the  X  and  phi  functional  relationship  with  beta  and  gamma 
using  the  "best  fit"  polynomial  and  calibration 
coefficients.  This  would  provide  a  visual  qualitative 
check  of  the  fit  to  the  calibration  data  (Figs.  A3  and  A4 ) . 

2.  Modify  the  HP-9830  based  program  PRBRED  to  include  the 
computation  of  beta  bar. 

3.  Create  specific  plotting  programs  on  the  HP-9830  to 
plot  the  quantities  in  Figs.  A5  -  A8 . 

4.  Repair  or  service  the  printer  that  supports  the  HP-21MX 
system.  Frequent  malfunctions  dramatically  slowed  the 
execution  of  HP-21MX  programs. 

5.  Investigate  the  feasibility  of  replacing  the  HP-9830 
with  an  HP-300  system  for  probe  calibration  and  related 
work. 
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APPENDIX  B 
SOFTWARE 

Bl .   INTRODUCTION 

The  software  consists  of  three  programs;  namely, 
"ACQUIRE ,"  "CALC,"  and  "LOSS."  An  in-depth  knowledge  of 
computer  programming  is  not  reguired  to  run  the  programs; 
however,  some  knowledge  of  programming  in  Hewlett  Packard 
BASIC  5.0  would  be  reguired  in  order  to  plot  results  or 
make  corrections  to  data  files.  A  rudimentary  knowledge  of 
computers  by  the  user  is  presumed.  The  main  references  for 
the  programs  are  Ref.  13  -  17. 

The  programs  were  written  to  be  understandable  and 
flexible.  To  facilitate  understanding  program  flow, 
emphasis  was  placed  on  clear  logic  rather  than 
sophistication.  To  this  end,  subroutines  were  called  from 
a  library  to  perform  all  calculations  and  repetitive 
operations.  In  addition  to  providing  for  one  or  two  probe 
surveys,  modifications  to  hardware  addresses  on  the 
interface  bus  or  changes  to  scanner  channel  assignments  can 
be  made  easily  at  the  beginning  of  the  program. 

An  overview  of  the  file  system  and  program  flow  is 
given  in  sections  B2  and  B3  respectively,  and  the  step-by- 
step  procedures  reguired  to  run  the  programs  are  given  in 
Section  B4 ,  Program  Execution.  Common  errors  and  recovery 
steps  are  addressed  in  Section  B5,  and  common  modifications 
are  discussed  in  Section  B6 .   Copies  of  the  three  main 
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programs  are  contained  in  Section  B7  along  with  examples  of 
the  plotting  and  data  file  correction  programs.  Examples 
of  output  tables  of  scaled  and  reduced  data  for  both 
detailed  blade-to-blade  surveys  are  also  contained  in  this 
section.  Initialization  of  flexible  discs  and  backing  up 
files  to  flexible  discs  is  addressed  in  Section  B8. 
Recommendations  to  improve  the  software  are  presented  in 
Section  B9.  Finally,  for  the  user,  a  summary  of  the  steps 
involved  in  running  the  program  is  given  in  Section  BIO. 

B2.   FILE  SYSTEM 

Chapter  3  and  10  of  Ref.  13  cover  mass  storage 
concepts  (how  the  computer's  hard  disk  can  be  divided  up 
for  storage  space)  and  the  use  of  files  and  directories 
respectively.  The  current  directory  and  file  system  is 
shown  in  Fig.  Bl .  Four  subdirectories  were  created  under 
CLASSICK  in  the  root  directory.  The  sub  directory  DATA 
contains  all  the  digital  voltmeter  (DVM)  readings  during 
the  survey.  Scaled  data,  or  raw  data  that  has  been  scaled 
in  engineering  units,  e.g.,  pressure,  degrees,  etc.,  are 
stored  in  REDDATA,  along  with  the  scaled  data  reduced  to 
useful  calculated  quantities.  The  probe  calibration 
coefficients  are  also  stored  in  REDDATA.  The  main  and 
ancillary  programs  are  contained  under  PROGS.  ROUTINES 
contains  all  the  subroutines  called  by  the  main  programs. 

When  conducting  a  probe  survey,  files  need  to  be 
created  to  store  the  data.  Data  can  be  collected  from 
blade-to-blade  or  span-wise  probe  surveys  or  from  a  scan  of 

69 


CLASSICK 


ROOT 

DIRECTORY 

LEVEL 


DATA 


L-26AUGARAW 

L-4SEPARAW 

SL-4SEPARAW 

U-4SEPARAW 

SUP-4SEPARAW 

SUS-4SEPARAW 

B-4SEPARAW 


REDDATA 


L-26AUGASCL 

L-4SEPASCL 

SL-4SEPASCL 

U-4SEPASCL 

SUP-4SEPASCL 

SUS-4SEPASCL 

B-4SEPASCL 

L-26AUGACALC 

L-4SEPACALC 

SL-4SEPACALC 

U-4SEPACALC 

SUP-4SEPACALC 

SUS-4SEPASCL 

B-4SEPASCL 

MIKEC3 
MIKEC2 


PROGS 


ACQUIRE 
CALC 
LOSS 
PRBCOEF 
CORRECT 
CPBLADEPLOT 
WREFSPAN 
WREFUSPAN 
BETAPOSIT 
PRESSPLOT 


ROUTINES 


SUB 

DIRECTORY 

LEVEL 


SUBACQUIRE 
SUBCALC 

L  LOSSCALC 


PREFDX 

L  Lower  Traverse 

SL  Span  Lower  Traverse 

U  Upper  Traverse 

SUP  Span  Upper  Traverse  Pressure 

SUS  Span  Upper  Traverse  Suction 

B  Blade 

Figure   Bl. 


SUFFK 

RAW      Raw  Voltage  Readings 

SCL       Scaled 

CALC     Calculated  (reduced) 


File  System 


70 


the  instrumented  blade  surface  pressures.  For  each  survey, 
raw  data,  scaled  data  and  reduced  data  files  are  created  as 
the  user  progresses  through  the  programs.  The  file  names 
are  arbitrary  but  should  be  descriptive  in  the  interests  of 
identification  and  kept  to  a  maximum  of  twelve  characters. 
The  file  names  in  this  report  consisted  of  a  prefix  to 
designate  the  survey  type,  followed  by  the  date,  run  and 
data  type.  The  prefix  and  suffix  meanings  are  given  in 
Fig.  Bl .  As  an  example,  the  raw  data  acquired  from  the 
lower  traverse  blade-to-blade  probe  survey  which  was 
conducted  on  4  Sept.,  was  named  "L-4SEPARAW. "  If,  for  some 
reason,  this  survey  were  repeated  the  same  day  and  the 
previous  survey  results  were  saved,  the  new  file  would  be 
named  "L-4SEPBRAW. "  The  user  should  define  the  file  names 
for  the  proposed  surveys  before  executing  the  program. 

B3.   PROGRAM  FLOW 

The  program  flow  from  the  user's  perspective  is  shown 
in  Fig.  B2(a)-(d).  The  figures  show,  verbatim,  the  prompts 
the  user  will  see  on  the  screen  and  the  effects  that 
options  will  have  when  selected.  The  selection  of  options 
will  be  addressed  in  the  following  section. 

B4.   PROGRAM  EXECUTION 

In  this  section  the  procedures  to  power  up  the  system 
and  run  the  programs  will  be  spelled  out.  (A  summary  of 
the  steps  for  the  user  to  run  the  programs  is  given  in 
Section  BIO.)   The  intent  here  is  to  provide  the  user  with 
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the  necessary  information  to  acquire  and  reduce  the  data  in 
order  to  obtain  the  loss  coefficient  from  a  set  of  probe 
surveys.  The  program  flow  chart  should  be  referred  to  as 
the  program  steps  are  briefly  explained. 

1.  Turn  on  the  DVM,  scanner  and  Scanivalve  controller. 
The  computer  will  not  boot-up  unless  the  DVM  or  scanner 
is  on,  however,  all  of  these  components  must  be  on 
before  starting  the  survey. 

2.  Turn  the  disk  drive  on  and  wait  for  the  self  test 
to  complete  (two  amber  lights  below  the  flex  disc 
access  extinguish). 

3.  Turn  on  the  computer,  monitor  and  printer.  The 
printer  power  switch  is  located  behind  the  unit. 

4.  The  system  will  boot  up  the  HP  BASIC  5.0  resident 
on  the  hard  disc  and  go  through  a  series  of  self  tests. 
In  less  than  a  minute,  the  Hewlett  Packard  copywrite 
statements  will  appear  on  the  monitor.  Soft  key  labels 
appear  along  the  bottom  of  the  screen;  these  correspond 
to  the  top  row  of  keys  on  the  keyboard  labeled  fl  -  f8. 
The  key  board  and  an  example  of  what  the  soft  key 
labels  look  like  for  step  12  is  shown  in  Fig.  B3. 

5.  Press  f5  corresponding  to  the  soft  key  label  LOAD. 

6.  Type  /CLASSICK/PROGS/ACQUIRE  between  the  quotation 
marks.   Press  RETURN.   This  establishes  the  path  from 
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the  root  directory  where  the  CLASSICK  directory  is 
located  to  the  file  ACQUIRE  via  the  subdirectory  PROGS. 
An  alternate  way  of  doing  this  would  be  to  type  in  at 
the  blinking  cursor  the  word  LOAD  followed  by 
"/CLASSICK/PROGS/ACQUIRE."   Press  RETURN. 

7.  Press  f3  corresponding  to  the  soft  key  label  RUN. 
The  first  prompt  in  the  ACQUIRE  program  will  appear. 
From  the  program  flow  chart,  it  can  be  determined  that 
the  prompt  will  read  "NAME  FILE  FOR  THE  RAW  DATA  TO  BE 
COLLECTED  FROM  THE  PROBE(S)."  The  file  name  is  typed 
in  directly  without  quotation  marks,  e.g.,  L-2SEPARAW. 
Press  ENTER. 

8.  At  the  next  prompt,  type  in  the  scaled  data  file, 
e.g.,  L-4SEPASCL.   Press  RETURN. 

9.  Type  in  the  atmospheric  pressure  in  inches  of 
mercury,  e.g.,  29.92.  Press  RETURN.  In  the  program 
this  defines  the  variable  Pbaro  as  equal  to  29.92. 
This  will  normally  be  constant  throughout  the  duration 
of  a  survey,  however,  in  the  rare  event  of  a  weather 
front  passing  through,  the  barometric  pressure  can 
change  during  the  survey.  If  the  change  is 
significant,  the  variable  Pbaro  can  be  redefined  while 
the  program  is  running  by  performing  the  following 
steps: 
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a.  Press  the  STOP  key  next  to  key  fl. 

b.  Type  Pbaro  30.00  to  change  from  29.92  to  30.00. 

c.  Press  RETURN. 

c.   Press  f2  corresponding  to  soft  key  label 
CONTINUE. 

10.  Once  step  9  has  been  completed,  the  one  or  two 
probe  option  prompt  appears,  and  the  soft  key  labels 
EDIT  and  SCRATCH  corresponding  to  keys  fl  and  f4 
respectively  are  replaced  by  ONE  PROBE  and  TWO  PROBES. 
Press  the  appropriate  key.  Note  that  the  only  soft 
keys  the  user  will  press  during  normal  program 
execution  will  be  those  corresponding  to  keys  fl  and 
f4.  It  will  be  assumed  in  the  following  steps  that  the 
one  probe  option  was  used  -  the  only  difference  in 
procedure  will  be  an  additional  position  that  the  user 
must  enter  for  the  second  probe. 

11.  The  scan  number  and  position  are  typed  in  and  sep- 
arated by  a  comma,  e.g.,  43,  2.55.  Press  RETURN.  The 
scan  number  can  be  up  to  four  characters  and  the 
position,  seven  characters  -  four  to  the  left  and  two 
to  the  right  of  a  decimal. 

12 .  The  scan  begins  after  RETURN  is  pressed  for  step 
11 .  All  the  data  for  the  scan  will  print  to  the  screen 
for  the  user  to  evaluate.  An  example  of  the  screen 
presentation  is  given  in  Fig.  B4 .  If  the  data  is 
unsatisfactory,  press  f4  corresponding  to  soft  key 
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«•**«**•*#**«•«••«••«*•«*•««•«•«#«•««#*#•*#*«*###*«#*#«*##**«•«#«« 


SCAN  NUMBER  2 
PROBE  POSITION  200 


PORT 

I 

2 

3 

4 

5 

G 

7 

8 

9 
10 
1  1 
12 
13 
14 


VOLTAGE 

4.000E-07 

9.052E-04 

1  .182E-03 
-G.170E-04 

5.254E-04 
-G.5G0E-05 
-G.380E-05 
-3.0G0E-05 
-1 . 10GE-04 

1 .016E-03 
-G.790E-04 

4.000E-07 
-2.B00E-06 

G.000E-07 


GUAGE  PRESSURE( INCHES  H2o ) 

4.000E-03 

9.048E+00 

1  .182E+01 
-6.174E+00 

5.250E+00 
-6.B00E-01 
-B.420E-01 
-3. 100E-01 
-1.1 10E+00 

1 .016E+01 
-6.794E+00 

0.000E+00 
-3.000E-02 

2.000E-03 


YAW  CHAN  READING  .0023624 

YAW  (DEGREES)  2.3G24 

TEMP  CHAN  READING  -.0012326 

TEMPERATURE  (DEGREES  R)  452.445752 

ATMOSPHERIC  PRESS  (INCHES)  30.00  (  Hg ) 


407. 10(H2o) 


#«##«#♦#♦«####«*##«###*###•«#######«♦»»#**####«##♦###*###**♦##♦* 

IS    DATA   OK?    PRESS    "RECORD"    TO   RECORD   DATA,    PRESS    "REPEAT"    TO 
REPEAT    THE    SCAN. 

####♦#####•##•##*♦«•*##•#•#######«##########*#«####*«##•»**#•»♦#«# 


Figure  B4 . 


Data  Printed  on  the  Screen 
One  Probe  Scan 
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label  REPEAT.  This  will  return  the  program  to  step  11. 
If  the  data  is  satisfactory,  press  fl  corresponding  to 
soft  key  label  RECORD.  The  disc  drive  amber  light  will 
flash  momentarily  as  the  data  is  stored  on  the  disk. 

13.  Press  GO  ON  to  continue  taking  more  data.  This 
will  return  the  program  to  step  11  again  and  the  cycle 
repeats  until  the  survey  is  terminated  by  pressing  END 
PRB  DATA. 

14.  A  statement  appears  informing  the  user  what  file 
names  the  raw  and  scaled  data  files  are  under.  This  is 
just  a  reminder  and  requires  no  action. 

15.  The  next  statement  is  a  reminder  to  clear  the 
probe  away  from  the  instrumented  blade  before 
collecting  a  blade  surface  pressure  distribution. 

16.  Options  appear  to  either  collect  the  blade  data  or 
by-pass  this  operation  and  go  on  to  the  print  options. 

17.  The  collect  option  requires  file  names  for  the  raw 
and  scaled  data.  Type  the  names  as  was  done  in  steps  7 
and  8  . 

18.  The  scan  begins  after  RETURN  is  pressed  for  step 
17.  The  blade  data  will  be  printed  on  the  screen.  As 
in  step  12,  the  scan  can  be  repeated  if  the  data  is 
unsatisfactory.   An  example  of  the  screen  presentation 
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is  given  in  Fig.  B5 .  Similarly,  the  data  is  stored 
when  RECORD  is  pressed. 

19.  After  recording  blade  data,  there  follows  a  series 
of  print  options  for  the  stored  probe  and  blade  data. 
The  steps  are  readily  apparent  from  the  program  flow 
chart.  Note  that  this  is  the  only  time  to  obtain  a 
hard  copy  of  the  raw  and  scaled  probe  and  blade  data. 
Currently  a  program  does  not  exist  to  print  the  data 
from  an  arbitrary  file  in  the  tabulated  format  produced 
by  the  ACQUIRE  program. 

20.  The  last  step  in  program  "ACQUIRE"  is  the  option 
of  terminating  the  program  by  pressing  GO  ON  or  loading 
the  reduction  program  "CALC"  by  pressing  CALC.  If  the 
data  collected  is  to  be  reduced  at  a  later  time,  then 
GO  ON  is  the  correct  choice.  Later,  when  the  user  is 
ready  to  reduce  the  data,  program  "CALC"  is  executed  by 
following  steps  5  and  6  except  type 
/CLASSICK/PROGS/CALC;  press  RETURN,  then  press  soft  key 
RUN. 

21.  Once  "CALC"  is  executed,  the  first  prompt  that  ap- 
pears is  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE 
PROBE  DATA  SCALED  TO  ENGINEERING  UNITS."  This  is  the 
scaled  data  file  produced  during  the  execution  of 
"ACQUIRE."  A  new  file  is  not  being  created  at  this 
time  -  the  entry  allows  "CALC"  to  reduce  the  data  in 
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SCAN  NUMBER          1 1 

FORT 

VOLTAGE 

GUAGE  FRESS< INCHES  H2o > 

t 

1 .000E-06 

I.000E-02 

2 

9.008E-04 

B.998E+00 

3 

I.20GE-03 

I.205E40I 

4 

-3.3B0E-04 

-3.390E+00 

5 

-1 .04BE-04 

-I.05BE+00 

G 

2.380E-05 

2.280E-0I 

7 

8.000E-05 

7.900E-0I 

8 

9.7B0E-05 

9.G80E-0I 

9 

B.300E-05 

B.200E-0I 

10 

G.240E-05 

G. I40E-0I 

1  1 

8.2G0E-05 

8.IG0E-01 

12 

7.2G0E-05 

7. IG0E-0I 

13 

B.500E-05 

8.400E-01 

14 

1 .7I2E-04 

I.702E+00 

15 

2.334E-04 

2.324E+00 

IB 

2.I44E-04 

2.I34E+00 

17 

I.334E-04 

1 .324E+00 

IB 

1 .72BE-04 

1 .7IBE+00 

19 

2.270E-04 

2.260E+00 

20 

3.804E-04 

3.794E+00 

21 

4.G74E-04 

4.664E+00 

22 

G.89GE-04 

G.886E+00 

23 

-1 .709E-03 

-1 .710E+0I 

24 

-3.333E-03 

-3.334E+0I 

25 

-3.202E-03 

-3.203E+0I 

26 

-2.779E-03 

-2.780E+0I 

SAMPLE 

EXCEEDED  MAXIMUN 

DEVIATION  ALLOUED-SAMPLE  RETAKEN 

27 

-2.0G8E-03 

-2.069E+0I 

26 

-1 .G3IE-03 

-1 .G32E+0I 

29 

-1 .41 IE-03 

-I.4I2E+0I 

30 

-1 .238E-03 

-I.239E+0I 

31 

-1 .043E-03 

-1 .044E+0I 

32 

-8.2I2E-04 

-8.222E+00 

33 

-G.908E-04 

-G.9I8E+00 

34 

-5.584E-04 

-5.594E+00 

35 

-4.7I2E-04 

-4.722E+00 

36 

-4. I58E-04 

-4.IG8E+00 

37 

-3.784E-04 

-3.794E+00 

38 

-3.G08E-04 

-3.GI8E+00 

39 

-3.350E-04 

-3.360E+00 

40 

-3.232E-04 

-3.242E+00 

41 

-3.0G8E-04 

-3.078E+00 

42 

-2.922E-04 

-2.932E+00 

43 

3.334E-04 

3.324E+00 

44 

-9.I70E-04 

-9. I80E+00 

45 

-3.2I4E-04 

-3.224E+00 

46 

1 .44GE-04 

1 .43GE+00 

47 

9.420E-05 

9.320E-0I 

46 

-2.G5GE-04 

-2.GGGE+00 

15  DATA  OK?  PRESS  "REPEAT"  TO  REPEAT  THE  SCAN,  PRESS 
TO  RECORD  THE  DATA. 


■RECORD" 


Figure  B5.   Data  Printed  on  the  Screen 
Instrumented  Blade  Scan 
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the  scaled  data  file  to  useful  engineering  quantities. 
Type  the  file  name,  e.g.,  L-4SEPASCL.   Press  RETURN. 

22.  The  next  two  prompts  are  to  allow  "CALC"  access  to 
the  probe  calibration  coefficient  file  -  one  for  X  and 
one  for  Phi.  For  this  study  the  X  file  was  MIKEC3  and 
the  Phi  file  was  MIKEC2.  Type  these  file  names  in  at 
the  prompt  followed  by  RETURN. 

23.  The  one  or  two  probe  option  appears  next.  The 
difference  between  the  two  choices,  is  in  the  prompts 
displayed.  Two  probes  require  two  additional 
calibration  coefficient  files  to  be  accessed  -  hence 
the  prompts  for  the  upper  probe  coefficient  file  for 
X  and  Phi. 

24.  The  prompt  "ENTER  THE  FILE  NAME  FOR  THE  DATA  TO  BE 
CALCULATED  FROM  THE  PROBE,"  requires  the  user  to  create 
a  new  file  for  the  data  about  to  be  reduced  from  the 
scaled  data  file.  Type  the  file  name,  e.g.,  L- 
4SEPACALC.  Press  RETURN.  Note  that  for  the  two-probe 
survey,  an  additional  file  must  be  created  for  the 
second  probe,  even  though  only  one  scaled  data  file  was 
created  in  "ACQUIRE"  for  either  a  one  or  two-probe 
survey. 

25.  The  next  prompt  will  remain  on  the  screen  until 
the  REDUCED  DATA  soft  key  is  pressed.  It  is  assumed 
that  the   "CALC"  program  would  not  be  executed  unless  a 
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hard  copy  of  the  reduced  data  were  desired,  hence,  no 
other  options  are  available. 

26.  The  option  to  calculate  the  mass  averaged  co- 
efficient of  pressure  from  the  instrumented  blade 

data  appears  next.  Pressing  GO  ON  bypasses  this 
calculation.  Pressing  BLADE  CP'S  prompts  the  user  for 
additional  information. 

27.  As  in  step  21,  type  in  the  scaled  blade  data  file, 
e.g.,  B-4SEPASCL.   Press  RETURN. 

28.  As  in  step  24,  type  in  the  name  of  the  file  to  be 
created  for  the  blade  Cp's,  e.g.,  B-4SEPACALC.  Press 
RETURN . 

29.  The  next  prompt  requires  the  user  to  supply  the 
limits  of  integration  for  the  probe  survey  file  entered 
in  at  the  beginning  of  "CALC"  e.g.,  L-4SEPASCL.  This 
file  contains  data  for  the  blade-to-blade  survey 
upstream  at  midspan,  which  is  the  inlet  condition  to 
the  instrumented  blade.  (The  taps  are  located  at 
midspan.)  Quantities  obtained  from  the  blade-to-blade 
scaled  file  and  reduced  file  are  mass  averaged  for  the 
Cp  calculation  as  shown  in  Table  I.  The  limits  of 
integration  are  determined  by  noting  what  the  beginning 
and  ending  scan  numbers  are.  In  the  case  of 
L-4SEPASCL,  the  first  scan  was  1  and  the  last  scan,  31. 
For  "ENTER  THE  LOW  SCAN",  type  1.   Press  RETURN.   For 
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"ENTER  THE  HIGH  SCAN",  type  31.  Press  RETURN .  Note 
that  it  is  not  the  position  that  is  entered,  but  the 
scan  number  corresponding  to  the  position  that  is 
entered.  Additionally,  the  integration  limits  can  be 
over  a  shorter  interval  than  the  entire  length  of  the 
survey  if  desired. 

30.  The  prompt  to  print  the  blade  C's  appears  once 
the  computer  completes  the  Cp  calculations. 

31.  The  final  prompt  in  "CALC"  allows  the  user  to  ter- 
minate the  program  by  pressing  GO  ON  or  to  execute 
program  "LOSS"  by  pressing  LOSS.  To  calculate  the  AVDR 
and  loss  coefficient,  reguires  an  upper  and  a  lower 
blade-to-blade  survey.  The  execution  of  "LOSS"  at  this 
point  would  not  be  appropriate  unless  the  user  has  a 
reduced  file  for  an  upper  and  lower  blade-to-blade 
probe  survey. 

32.  If  program  "LOSS"  was  not  executed  by  pressing 
the  LOSS  soft  key  in  step  31,  then  it  can  be  executed 
by  pressing  the  LOAD  soft  key  and  typing 
/CLASSICK/PROGS/LOSS  between  the  quotation  marks  and 
pressing  RETURN.   Press  the  RUN  soft  key. 

The  static  pressure  rise  coefficient,  AVDR  and 
loss  coefficient  are  calculated  from  quantities 
contained  in  the  reduced  files  of  the  upper  and  lower 
blade-to-blade   surveys   as   shown   in   Table   I.    The 

86 


entries  for  the  prompts  provide  the  program  access  to 
the  reduced  data  files. 

33.  The  prompt  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING 
THE  CALCULATED  DATA  FROM  THE  LOWER  PROBE"  requires  the 
user  to  enter  the  file  name  for  the  lower  probe  blade- 
to-blade  survey  data  that  was  reduced  in  "CALC"  e.g.  , 
L-4SEPACALC.   Press  RETURN. 

34.  The  next  prompt  pertains  to  the  upper  probe  blade- 
to-biade  survey  reduced  data  e.g.,  U-4SEPACALC.  Press 
RETURN . 

35.  Integration  limits  for  the  lower  probe  blade-to- 
blade  survey  are  requested  next.  As  noted  in  step  29, 
it  is  the  scan  number  corresponding  to  the  lower  limit 
of  the  integration  interval  that  is  entered  for  "ENTER 
THE  FIRST  POINT."  Likewise,  the  scan  number  for  the 
upper  limit  of  the  integration  interval  is  entered  for 
"ENTER  THE  LAST  POINT." 

36.  Limits  of  integration,  in  terms  of  scan  number, 
are  requested  again  for  the  upper  probe  blade-to-blade 
survey. 

Note  that  the  upper  and  lower  integrations  must  be 
the  same,  exact,  integral  number  of  blade  spaces 
(usually  one),  but  the  number  of  scans  to  cover  the 
same  distance  will  probably  be  different.  It  is 
vitally  important  to  ensure  that  correct   scan  numbers, 
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match  desired  integration  limits  when  the  integration 
interval  is  something  other  than  the  beginning  and 
ending  of  a  blade-to-blade  survey. 

37.  The  calculations  are  performed  and  the  static 
pressure  rise  coefficient,  AVDR  and  loss  coefficient 
are  printed  on  the  screen;  the  program  then  terminates. 

B5.   COMMON  ERRORS  AND  RECOVERY  STEPS 

B5.1   Introduction 

Common  errors  germane  to  the  program  execution  are 
outlined  in  this  section.  Errors  for  each  program  are 
covered  rather  than  broad  categories  of  errors.  Specific 
recovery  steps  are  given  which,  in  some  cases,  require 
knowledge  of  the  program  structure.  Since  probe  surveys 
are  time  consuming,  it  behooves  the  investigator  to  be 
familiar  with  the  program.  A  mistake  in  many  cases  may  be 
rectified  by  stopping  the  program,  then  continuing  at  a 
specific  line  in  the  program.  To  this  end,  a  copy  of  the 
three  main  programs  should  be  available  during  a  survey.  A 
listing  of  the  programs  may  be  obtained  by  following  the 
steps  outlined  in  Section  B6.  In  those  cases  where  a 
specific  recovery  step  cannot  be  made,  the  user  is  referred 
to  Ref.  13-17.  A  complete  listing  and  description  of 
system  errors  can  be  found  in  Ref.  16. 

While  not  specifically  an  error  associated  with  program 
execution,  the  new  user  may  become  lost  in  the  directory. 
The  Mass  Storage  Is  or  MSI  command  (addressed  in  Ref.  13), 
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in  conjunction  with  a  path  name,  allows  the  user  to  move 
through  the  directory  levels.  The  command  MSI"/"  places 
the  system  in  the  root  directory  while  the  command 
MSI"/CLASSICK" ,  places  the  system  in  the  CLASS ICK  directory 
which  is  subordinate  to  the  root  directory.  Executing  any 
of  the  three  main  programs  by  following  the  steps  in 
Section  B4  will  initially  place  the  system  in  the  PROGS 
subdirectory.  As  the  program  runs,  the  subdirectory  will 
change  to  facilitate  entry  of  the  various  file  names.  In 
all  cases  when  the  programs  have  terminated,  the  system  is 
in  the  REDDATA  subdirectory.  The  program  can  be  repeared 
even  from  this  subdirectory  by  pressing  RUN.  However,  if 
the  user  decides  to  move  somewhere  else  in  the  directory, 
the  MSI  command  and  path  name  must  be  used.  As  an  example, 
upon  "CALC"  termination  it  is  desired  to  execute  "ACQUIRE." 
The  command  MSI  "/CLASSICK/PROGS"  puts  the  system  in  the 
PROGS  subdirectory.  "ACQUIRE"  can  then  be  loaded  from  the 
subdirectory  PROGS  by  pressing  LOAD  and  typing  ACQUIRE 
between  the  guotation  marks. 

Alternatively,  "ACQUIRE"  could  have  been  loaded  from 
subdirectory  REDDATA  by  pressing  LOAD  followed  by  typing 
"/CLASSICK/PROGS/ACQUIRE" . 

B5.2   ACQUIRE 

1.   Errors  Involving  File  Names 

These  errors  will  most  likely  be  the  result 
of  either  attempting  to  enter  a  file  name  which  exceeds 
twelve  characters  or  entering  an  undesired  file  name.   If  a 
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system  error  is  returned  while  attempting  to  enter  a  file 
name  and  it  is  suspected  that  the  name  exceeded  twelve 
characters,  reenter  the  file  name  using  twelve  characters 
or  less.   Refer  to  Ref.  16  for  other  system  errors. 

Undesired  file  names  which  have  been  entered 
into  the  system  i.e.,  the  file  was  created,  can  be  handled 
in  different  ways.  Assuming  no  data  had  been  collected, 
the  program  could  be  aborted,  the  undesired  file  name 
purged  and  the  program  reexecuted.  The  steps  for  this 
would  be: 

a.  Press  STOP  (This  is  a  labeled  key  on  the  top  row). 

b.  Type  MSI  "/CLASSICK/SUBDIRECTORY  NAME"  (subdirect- 
ory name  is  either  DATA  for  rawdata  files  or  REDDATA 
for  scaled  or  reduced  data  files). 

c .  RETURN 

d.  Type  PURGE  "UNDESIRED  FILE  NAME"  (include  quotation 
marks )  . 

e .  RETURN 

f.  Press  LOAD 

g.  Type  /CLASSICK/PROGS/ACQUIRE  between  quotation 
marks. 

h .   RETURN 

i .   Press  RUN 

Alternatively,  the  program  could  be  run  with 
the  undesired  file  name  and  the  name  changed  after  ter- 
minating "ACQUIRE."  The  steps  for  this  would  involve 
writing  a  short  program. 

2.   Incorrect  Atmospheric  Pressure  Entry 
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The  required  steps  are  as  follows: 

a.  Press  STOP 

b.  Type  Pbaro  =  CORRECT  VALUE 

c .  RETURN 

d.  Press  CONTINUE 

3.   Incorrect  Probe  Option  Selected 

The  required  steps  are  as  follows: 

a.  Press  STOP 

b.  Type  CONT  145 

[Line  145  is  the  line  number  which  the 
program  would   have  to   return  to   in  order  to  generate 
the  probe  option  prompt  again.] 


c .   RETURN 


Incorrect  Scan  Number  or  Probe  Position 
Entered 


Upon  pressing  RECORD,  an  error  statement 
will  be  returned  if  the  scan  number  was  entered  out  of 
sequence.  This  will  prevent  the  data  from  being  stored. 
Take  the  following  steps: 

a.  Press  STOP 

b.  Type  CONT  162  for  a  one  probe  survey 

c.  Type  CONT  160  for  a  two  probe  survey 

[These  are  the  line  numbers  in  the  program  that 
return  the   prompt   for  entering  the  scan  number  and 
position. ] 

d .  RETURN 
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An  incorrect  position  entry  will  not  return 
an  error  statement.  A  correction  to  position  can  be  done 
using  a  version  of  program  "correct"  after  completion  of 
the  survey. 

5.  Premature  Termination  of  Data  Collection 

If  END  PRB  DATA  was  mistakenly  pressed,  the 
ability  to  continue  with  probe  data  collection  can  be 
regained  by  these  steps: 

a.  Press  STOP 

b.  Type  CONT  162  for  a  one  probe  survey 

c.  Type  CONT  160  for  a  two  probe  survey 

d .  RETURN 

6.  By-passed  Collecting  Blade  Data  Mistakenly 
The  required  steps  are  as  follows: 

a.  Press  STOP 

b.  Type  CONT  357.   [This  line  number  returns  the  blade 
data  collection  option  prompt.] 

c .  RETURN 

7.  By-passed  Hard  Copy  Print  Options  Mistakenly 
The  required  steps  are  as  follows: 

a.  Press  STOP 

b.  Type  CONT   408.   [Line  408  is  the  beginning  of  the 
hard  copy  option  prompts.] 


RETURN 
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B5 . 3   CALC 

1.  Incorrect  File  Entered 

The  "CALC"  program  will  reduce  any  scaled 
data  file  obtained  from  "ACQUIRE."  If  an  undesired  file 
name  was  entered,  abort  the  program  then  reexecute  it 
using  the  following  steps: 

a.  Press  STOP 

b.  Press  RUN 

2.  Incorrect  Probe  Coefficient  File  Entered 
The  required  steps  are  as  follows: 

a.   Press  STOP 


b.  Type  CONT  144.    [Line  144   will  return   the  prompt 
for  entering  the  X  velocity  coefficient  file.] 

c .  RETURN 


3.  Incorrect  Probe  Option  Selected 
The  required  steps  are  as  follows: 

a.  Press  STOP 

b.  Type  CONT  200    [Line  200  returns  the  probe  option 
prompt. ] 

c .  RETURN 

4.  Incorrect  Reduced  Data  File  Name  Entered 
"CALC"  is  short  enough  to  allow  termination 

and  reexecution  of  the  program  in  order  to  enter  the 
correct  desired   file  name  for  the  reduced  data.   The  steps 
to  do  this  are: 
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a.  Press  STOP 

b.  Press  RUN 

The  undesired  file  name  can  be  purged  from 
the  REDDATA  subdirectory  by  following  the  steps  in 
paragraph  "1"  of  Section  B5.2.  If  "CALC"  is  to  be  executed 
after  the  purge  operation,  press  LOAD  and  type 
/CLASSICK/PROGS/CALC  between  the  quotation  marks.  Press 
RETURN  followed  by  pressing  RUN. 

5.  By-passed  Blade  Cp  Calculations  Mistakenly 
The  required  steps  are  as  follows: 

a.  Press  STOP 

b.  Type  CONT  736.   [Line  736  returns  the  blade  C 
calculation  option. ] 

c .  RETURN 

6.  Incorrect  Limits  of  Integration  Entered 
Unless  the  limits  entered   are  non  existent, 

no  error  will  be  returned — only  erroneous  data  if  the 
limits  are  wrong.  If  the  Cp  values  do  not  look  correct, 
the  calculation  can  be  repeated  if  the  integration  limits 
are  suspected  to  be  in  error.   Perform  the  following: 

a.  Press  STOP 

b.  Type  CONT  736.  [This  will  return  the  blade  Cp 
calculation  option.  A  new  reduced  blade  data  file  name 
will  have  to  be  entered  since  the  previous  file  name 
contains  the  suspect  Cpreduced  data.  This  suspect  file 
can  be  purged  following  the  steps  in  paragraph  1, 
Section  B5. 2. ] 

c .  RETURN 
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B5.4   LOSS 

"LOSS"  is  a  short  program;  any  errors  in 
entering  the  prompted  entries  can  be  handled  by  terminating 
the  program  and  starting  again.   The  steps  are: 

a.  Press  STOP 

b.  Press  RUN 

B6.   MODIFICATIONS 

B6.1   Introduction 

The  programs  were  written  to  accomodate  changes 
that  might  be  expected  to  occur  in  the  equipment  set-up  of 
the  cascade  facility.  Variables  defining  scanner  channel 
assignments,  HP-IB  equipment  addresses  and  other  variables 
that  might  change  as  the  investigations  are  modified  were 
placed  at  the  beginning  of  the  program.  Thus,  all  such 
changes  are  made  in  one  section  of  the  code.  Those 
variables  embedded  in  the  program  such  as  temperature  yaw 
and  position  are  cited  by  line  number  to  allow  modi- 
fications to  be  made  in  the  way  they  are  evaluated.  Array 
elements  were  redefined  when  necessary.  Changes  to  array 
elements  require  familiarization  with  the  program 
structure.  All  changes  should  be  followed  up  with  a 
revalidation  of  the  modified  code  prior  to  acquiring  new 
survey  data. 

Program  modifications  are  made  and  their  effects 
evaluated  best  by  examining  a  hard   copy   of   the  program. 
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Obtain  a  copy  of  any  program  in  the  PROGS  subdirectory  by 
performing  the  following  steps: 

a.  Type  MSI" /CIAS SICK/PROGS" 

b .  RETURN 

c.  Type  CAT  [This  will  list  all  the  programs  or  files 
in  the  PROGS  subdirectory.  After  identifying  the 
desired  program,  proceed  with  the  next  step.] 

d.  Type  PRINTER  IS  701  [Output  is  now  directed  to  the 
printer.  ] 

e .  RETURN 

f.  LOAD  "DESIRED  PROGRAM" 

g .  RETURN 

h.   Type  LIST 

i.   RETURN  [The  program  will  now  be  printed.] 

Note  that  after  the  program  is  printed,  return  the  system 
to  print  on  the  screen  by  typing  PRINTER  IS  1,  followed  by 
RETURN. 

Once  the  changes  have  been  identified,  refer 
to  Chapter  11,  of  Ref.  13  to  edit  and  store  the  modified 
program . 

B6 . 2   Common  Changes 

In  "ACQUIRE"  the  common  variables  that  might  be 
changed  are  listed  in  the  front  of  the  program  along  with  a 
plain  langauge  description  of  what  the  variable  represents. 
It  is  assumed  the  user  will  understand  the  rudiments  of  the 
acguisition  system  prior  to  making  any  variable  changes. 
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B6 . 3   Temperature,  Yaw  and  Position  Changes 

The  variable  Temp  on  line  245  of  "ACQUIRE"  is 
defined  by  an  equation  that  represents  the  characteristics 
of  the  iron-constantan  thermocouple  used  in  the  present 
work.  This  equation  will  change  if  the  thermocouple 
changes.  Edit  this  line  with  appropriate  changes  to 
account  for  a  thermocouple  change. 

Referencing  the  yaw  angle  to  a  precisely  known 
horizontal  or  vertical  axis  as  outlined  in  Appendix  C 
requires  a  correction  to  the  yaw  transducer  output.  This 
correction  can  be  made  in  "ACQUIRE"  by  modifying  line  240 
for  a  one  probe  survey  or  lines  207  and  212  for  a  two  probe 
survey.  An  alternative  to  this  would  be  to  modify  "CALC". 
Change  line  626  for  a  one  probe  survey;  change  lines  359 
and  4  91  for  a  two  probe  survey. 

Incorporating  the  use  of  linear  potentiometers 
for  probe  position  read-out  is  a  more  extensive  mod- 
ification to  "ACQUIRE"  which  will  be  briefly  summarized  for 
a  one  probe  survey.  A  scanner  channel  for  the  potentio- 
meter transducer  must  be  assigned  and  this  channel  defined 
by  a  variable  name.  The  variable  must  be  included  in  the 
COM  statement  on  line  169  and  in  line  754  of  the  subprogram 
"Readdvm" .  A  CALL  statement  similar  to  that  listed  for  the 
Yaw  and  Temp  channel  readings  on  lines  238  and  242,  is 
required.  A  statement  allowing  the  transducer  channel  to 
be  read  by  the  DVM  must  be  included  in  the  IF-ELSE 
structure  of   "Readdvm".   Array  elements  presently  defining 
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probe   position  must   be   modified  if  necessary  and  traced 
through  "CALC". 

B6.4   Array  Elements  Changes 

In  "ACQUIRE,"  Scanivalve  port  readings,  in 
addition  to  other  quantities  are  assigned  an  array  element. 
A  change  in  an  array  element  assignment  may  require  a 
change  in  the  formatted  print  statements  and  headings. 
Additionally,  since  array  elements  are  redefined  during  the 
execution  of  the  three  main  programs,  a  trace  through  those 
programs  is  necessary  to  ensure  that  any  changes  in  array 
element  assignments  are  consistent. 

B.7   PROGRAMS  AND  DATA 

A  complete  listing  of  the  program  and  data  files  is 
given  in  the  Table  of  Contents  for  Appendix  B.  The  three 
main  programs  have  been  previously  explained.  The  listed 
subprograms  are  called  by  the  main  programs  from  the 
ROUTINES  subdirectory  during  execution.  The  plot  programs 
are  specifically  those  used  to  plot  some  of  the  data  in  the 
present  study.  The  following  is  a  list  of  the  figures 
corresponding  to  the  plot  program  written  for  it: 


Proaram 

Figure 

PREFPQREF 

18 

BETAPOSIT 

19 

WREFSPAN 

8 

WREFUSPAN 

11 

CPBLADEPLOT 

23 

98 


Plots  are  printed  to  the  printer  by  pressing  DUMP 
GRAPHICS.  Samples  of  the  programs  to  correct  erroneous 
data  points  or  to  rereference  the  probe-displacement  are 
included.  "CORRECT  A"  (Section  B7.12)  was  used  to 
extrapolate  the  recorded  data  to  add  an  additional  scan. 
This  was  done  to  enable  data  to  be  integrated  over  exactly 
one  blade  space.  The  artificially  generated  scan  does  not 
appear  in  Table  B4  but  does  appear  in  Table  B5.  "CORRECT 
B"  (Section  B7.13)  provided  the  means  to  correct  an 
incorrect  value  of  probe  position  entered  during  a  scan. 
The  corrected  value  then  appears  in  Table  B5 .  "CORRECT  C" 
(Section  B7.14)  was  used  to  rereference  displacement  values 
of  file  SUS-4SEPASCL  (example  not  included)  to  make  the 
midspan  position  equal  to  zero. 

The  probe  calibration  coefficients  were  stored  in  a 
file  using  "PRBCOEF"  (Section  B7.15)  with  actual 
coefficients  in  the  DATA  statement  in  lieu  of  those  in  the 
example.  Note  that  the  DATA  statement  must  contain  3  6 
entries  to  be  consistent  with  the  way  the  file  is  used  in 
the  program  "CALC." 

The  remainder  of  the  tables  have  been  previously 
addressed. 
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B7.1      Acquisition   Program  ACQUIRE 


10  IPROGRAM  ACQUIRE 

11  I  THIS  FR06RAM  ACQUIRES  DATA  FROM  5-HOLE  PROBE  SURVEYS  ANO  PRESSURE 

12  (DISTRIBUTION  FROM  AN  INSTRUMENTED  BLADE.  SEE  CLASSICK  M.S.  THESIS 

13  ISEPT  99  FOR  PROGRAM  DESCRIPTION  AND  DETAILS. 

52  I .••••••••••«  DIMENSION  ARRAYS  ••• ••••• •••••••• 

53  OPTION  BASE  I  IBASE  OF  ARRAY  WILL  BE  ONE  INSEAD  OF  ZERO 

54  DIM  RawdaU I  ,186)       I  THIS  ARRAY  WILL  ACCOMODATE  BOTH  49  PORT 

55  I SCANI VALVES  AND  10  CHANNELS  FROM  THE  SCANNER 

IFOR  A  TOTAL  OF  106  COLUMNS  OF  DATA. 

56  DIM  Scaled! I  ,106)       IARRAY  USEO  IN  PRINTIN6  PROBE  ft  CASCADE  PRSSURES 

57  ITO  SCREEN 

59  DIM  Prntdata( I  .48)      IARRAY  USED  IN  PRINTIN6  BLADE  PRESSURES  TO  SCREEN 

60  DIM  PrntdatM  t  ,48) 

61  MAT  Prntdata-  <§>       IINITIALLY  FILLS  ARRAY  WITH  ZEROS-IF  ENTIRE  ARRAY 

62  IIS  NOT  FILLED  WITH  DATA,  THEN  REMAINDER  OF  ARRAY 

63  IWILL  CONTAIN  ZEROS. 

65  MAT  Prntdatb-  (0) 

66  I VARIABLES  


67  Dport-I  IDESIRED  PORT.  IT  IS  DESIRED  THAT  THE  SCANIVALVE 

68  IBEGIN  AT  PORT  I. 

70  Hport-14  IHI6H  PORT.  LAST  PORT  ON  THE  SCANIVALVE  THAT  IS 

71  IOF  INTEREST. 

73  Dporta-I  ISAME  AS  ABOVE  EXCEPT  IT  PERTAINS  TO  SCANIVALVE 

74  IRESERVED  FOR  INSTRUMENTED  BLADE  SURVEY. 

76  Hporta-48  IALL  PORT  USEO  ON  THE  BLADE  SURVEY 

77  Dportb-I  I  IN  TWO  PROBE  SURVEYS.  MORE  PORTS  ARE  USED-THE 
79  IDESIRED  PORT  IS  STILL  I. 

90  Hportb-19  ILAST  PORT  OF  INTEREST  FOR  TWO-PROBE  SURVEYS. 

91  ScntenpcKn-10  ISCANNER  CHANNEL  ASSIGNED  TO  THERMOCOUPLE 

82  Scnyauchn-24  I  ■        "        "       "  YAU  TRANSDUCER. 

B3  Scnyauchnl-24  I  '        "       "       "  LOWER  PROBE  YAW 

94  (TRANSDUCER  FOR  TWO-FROBE  SURVEYS. 

86  Scnyauchnu-21   17        SCANNER  CHANNEL  ASSIGNED  TO  UFFER  PROBE  YAW 

87  I  TRANSDUCER  FOR  TWO-PROBE  SURVEYS. 

89  Scnva-I  ISCANIVALVE  USED  FOR  INSTRUMENTED  BLADE. 

90  Scnvb-2  I   "  *      PROBE  ft  CASCADE  PRESSURES. 

91  Scn-709  ISCANNER  BUS  ADDRESS 

92  Svc-707  ISCANIVALVE  CONTROLLER  BUS  ADDRESS  (HG-78K) 

93  Dvd-722  I0I6ITAL  VOLTMETER  BUS  ADDRESS 

94  Scnrdsvc-I  ISCANNER  CHANNEL  ASSIGNED  TO  READ  SCANIVALVE 

95  ICONTROLLER  (SCANIVALVE  READ  IS  THE  ONE  FOR 

96  IPROBE  AND  CASCADE  PRESSURES.) 

99  Scnrdsvca-0  ISAME  AS  ABOVE  EXCEPT  THE  SCANIVALVE  READ  IS  FOR 

99  I  THE  INSTRUMENTED  BLADE  PRESSURES 

101  Scnrdsvcb-I  ISAME  AS  ABOVE  EXCEPT  SCANIVALVE  READ  IS  THE 

102  IONE  FOR  PROBE  ft  CASCADE  PRESSURES  WHEN  2-PROBE 

103  IOPTION  IS  SELECTED. 

105  Scns»psvca-40  ISCANNER  CHANNEL  ASSIGNED  TO  STEP  SCANIVALVE  A 

106  Scn9tp5vcb-4I  I  "        "        ....       B 

107  Scnhmsvce-45  ISCANNER  CHANNEL  ASSIGNED  TO  HOME  SCANIVALVE  A 

108  Scnhmsvcb-46  I   "        "        *        ...        B 

109  Maxdlf-. 000050  IERROR  TRAP  FOR  SPURIOUS  OVM  READINGS. 

110  Prnter-701  IBUS  ADDRESS  FOR  PRINTER 

111  Scren-I  IBUS  ADDRESS  FOR  MONITOR 

112  LOADSUB  ALL  FROM  VCLASSICK/ROUTINES/SUBACQUIRE' 

113  MASS  STORAGE  IS  VCLASSICK/DATA"   IALLOWS  RAW  DATA  FILE  NAME  TO  BE  ENTERED 

114  IAT  THE  PROMPT  WITHOUT  PATHNAME 

I  16  PRINT    ■Mi.Hmmif.M.f.imiMiiniiii. iimih •••••• 

117  PRINT    •" 

119  FRINT  "NAME  FILE  FOR  THE  RAW  DATA  TO  BE  COLLECTED  FROM  THE  PROBE(S)" 

I  19  INPUT  RauflleS 

122  CREATE  BDAT  Rawf 1  let .  I  00  .848  IRAWFILE*  IS  A  STRING  VARIABLE  ASSIGNED 

124  ITHE  RAWFILE  NAME  TO  BE  ENTERED  AT  THE  PROMPT. 

125  ITHIS  FILE  IS  100  RECORDS  (ENOUGH  FOR  100  DATA 
I2B  IPOINTS)  EACH  RECORD  CAN  CONTAIN  106  REAL 
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,27  INUMBERS  8X106-848. 

128  ASSI6N  ffPatht  TO  Raufllet    IASSIGNS  A  PATH  NAME  TO  THE  RAW  FILE  JUST 

129  (CREATED  FOR  ENTER  AND  OUTPUT  STATEMENTS. 

130  MASS  STORAGE  IS  "/CLASSICK/REDDATA" 

132  PRINT  "••«••••«••••#•••••••• • ♦ • " 

133  PRINT  "• 

134  PRINT  'NAME  FILE  TO  STORE  THE  RAW  DATA  SCALEO  TO  ENGINEERING  UNITS" 

135  INPUT  Sclfllet 

136  CREATE  BOAT  Scl  f  Uet .  100  ,848 

137  ASSI6N  »Peth2  TO  Sclfile* 

138  PRINT  • •••• " 

139  PRINT  "" 

140  PRINT  'ENTER  THE  ATMOSPHERIC  PRESURE  IN  INCHES  H6" 

141  INPUT  Pbaro 

142  PRINT  "■ 

143  PRINT  ' ' 

144  PRINT  "" 

MS  PRINT  "PRESS  "ONE  FROBE""  IF  ONE  PROBE  IS  USED." 

145  PRINT  "PRESS  "TWO  PROBES""  IF  TWO  PROBES  ARE  USED." 

147  FRINT  ■" 

148  PRINT  " " 

149  PRINT  "" 

150  ON  KEY  1  LABEL  "ONE  PROBE"  GOTO  Nunberprbsl   ICODING  FOR  SOFT  KEYS 

151  ON  KEY  4  LABEL  "TWO  PROBES"  GOTO  Nunberprbs2 

152  Splnl:  60T0  Splnl                 IKEEPS  SOFT  KEY  LABELS  ON  SCREEN  UNTIL 

153  IEITHER  SOFT  KEY  IS  PRESSED. 

154  Nunberprbsl:    Noofprbs-I  (NUMBER  OF  PROBES  DETERMINES  WHERE  TO 

155  I  GO  IN  THE  PROGRAM. 

157  GOTO  Checknoofprbs 

158  Nunberprbs2:   Noofprbs-2 

159  Checknoofprbs:   IF  Noofprbs-2  THEN 

IG0  Start2prbs:   INPUT  "ENTER  THE  SCAN  NUMBER,  LOWER  PROBE   POSITION  AND  UPPER  P 

ROBE   POSITION"  .Scan.Posltl  .Posltu 

1B1  ELSE 

1G2  Start1prb:INFUT  "ENTER  THE  SCAN  NUMBER  AND  PROBE  POSITION"  .Scan  ,Posl t 

1B3  PRINT  "" 

1G4    PRINT  " • " 

1GS  END  IF 

166  COM  /Posltvrbls/  Svc.Scn  ICOMMON  BLOCK  VARIABLES  USED  IN  POSITIONING 

167  I  THE  SCANIVALVE  PORTS. 

169  COM  /Readvrbls/  Scan  ,Dvn  ,Scanvb( 1  ,48 ) .Tempchnrd .Yawchnrd ,5cnyawchn .Sent enp 
chn.Scnrdsvcb  ,Scanva( 1  ,4B),Scnrdsvca,Noofprbs  ,Yauchnrdu,Scnrdsvc 

170  COM  /Readvrbls/  Yauchnrdl .Scnyauchnu .Scnyawchnl  .Maxdl  f 

171  I  ABOVE  COMMON  BLOCK  VARIABLES  USED  IN 

172  IOBTAINING  DVM  READINGS. 

174  IF  Noofprbs-2  THEN 

175  GOTO  Read2prbs 

176  ELSE 

177  60T0  Readlprb 

178  END  IF 

179  Read2prbs:FRINT  "SCAN  NUMBER" i Scan 

180  PRINT  "LOWER  PROBE  POSITION" iPosl 1 1 

181  PRINT  "UPFER  PROBE  POSITION* iPost tu 

182  PRINT  'PORT  V0LTA6E             GAUGE  PRESS( INCHES  H2o)  " 

183  MAT  Scanvb-  (0) 

184  FOR  Db-Dportb  TO  Hportb 

185  CALL  ScnvportpoBlt<Scnvb,Db,Scnhnsvcb,Scnstpsvcb>    ICALLS  SUBROUTINE 

186  (TO  POSITION  SCANIVALVE  PORTS.  INITIALLY  IT  WILL 

187  (POSITION  SCNIVALVE  TO  PORT  1. 

189  CALL  Readdvm(Db,Scnrdsvcb>  ICALLS  SUBROUTINE  TO  READ  THE 

190  I  THE  SCANIVALVE  PORT  READINGS  ON 

191  ITHE  DVM. 

193  Prntdatbd .  1  >-Scanvbd  ,  1 >«10000  ICONVERTS   DVM  READINGS   TO  PRESSURE 

194  (VALUES. 

(96  IF  DbX  THEN  Prntdatbd  ,Db)-Scanvb(  (  .Db  )•  I  0000-Prnt  datbd  .1  )   IALLOWS 

'97  IPORT  I  READING  TO  BE  SURTRAr.TFf) 
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198  (FROM  OTHER  READINGS. 

200  FRINT  USIN6  "DO . 10X .MD.3DE , I0X ,MD. 3DE" iDb  ,Scanvb( 1  .Ob  )  ,Prntdatb< 1  .Db  ) 

201  NEXT  Db 

202  CALL  Readdvn(Db.Scnyawchnl  )  IDb  IN  THIS  CONTEXT  ACTS  AS  A  DUMMY 

203  I  VARIABLE.  DVM  READS  THE  LOWER  PROBE  YAW  TRANSDUCER. 

204  CALL  Readdvn(Db.Scnyawchnu)  IUPPER  PROBE  YAW  TRANSDUCER  IS  READ. 

205  PRINT  ■ ■ 

206  PRINT  'LOWER  PROBE  YAW  CHAN  READING  "lYauichnrdl 

207  Yawl-Yawchnrdl»t000  I  THIS  IS  WHERE  THE  REFERENCING 

208  I  CORRECT  ION  FOR  THE  YAW  ANGLE  IS  MADE 

210  PRINT  "LOWER  PROBE  YAW  (DEGREES)  '|Yawl 

211  PRINT  "UPPER  FROBE  YAW  CHAN  READING  "lYewchnrdu 

212  Yawu-Yawchnrdu»t000  IMAKE  THE  REFERENCING  CORRECTION  FOR 

213  "  IUPPER  PROBE  YAW  ANGLE  HERE. 

215  PRINT  "UPPER  PROBE  YAW  (DEGREES)  'lYewu 

216  60TO  Continue 

217  ReadlprbsPRINT  "SCAN  NUMBER" iScan  ICOOING  FOR  READING  ONE  PROBE  BEGINS 

218  PRINT  -PROBE  POSITION' iPobI t 

219  PRINT  "PORT  VOLTAGE     GUAGE  PRESSURE* INCHES  H2o)- 

220  MAT  Scanvb-  (0) 

221  FOR  D-Dport  TO  Hport 

222  CALL  ScnvportposlUScnvb.D.Scnhnsvcb.Scnstpsvcb)    ICALLS  SUBROUTINE  TO 

223  IPOSITION  SCANIVALVE  PORT. 

225  CALL  Readdvn(D.Scnrdsvc)  (CALLS  SUBROUTINE  TO  READ  SCAN1VALVE  PORTS 

226  ION  THE  DVM. 

228  Prntdatbl I  ,1  )-Scanvb( 1  ,1  )»I0000  ISCALES  DVM  READINGS  TO 

229  ITO  ENGINEERING  UNITS. 

231  IF  D>l  THEN  Frntdatb< I  ,D)-Scanvb( 1  ,D  )• 1 0000-Prnt datb( I  ,1  )     "PORT  1 

232  -  IREADING  SUBTRACTED  OFF  THE  SCANIVALVE 

233  'PORT  READINGS. 

235  PRINT  USING  "DD  ,  10X  .MD.3DE  ,  10X  ,M0. 3DE" iD .Scanvb( I  ,D  )  .Prnt datb(  I  ,D  ) 

236  NEXT  D 

237  PRINT  • " 

239  CALL  Readdvn(D,Scnyawchn) 

239  PRINT  "YAW  CHAN  READING  "lYawchnrd 

240  Yaui-Yawchnrd«1000  I  THIS  IS  WHERE  TO  CORRECT  FOR  PROBE  YAW  REFERENCING 

241  PRINT  -YAU  (DEGREES)  "lYau 

242  Cont lnue:CALL  Resddvn( Db  .Scntenpchn  ) 

243  PRINT  'TEMP  CHAN  READIN6  "iTenpchnrd 

244  T-Tempchnrd" 1000 

245  Temp-33. 91 »T+34. 25+460  I  IRON  CONSTANIAN  THERMOCOUPLE  EQUATION 

246  ISAME  ONE  USED  BY  DREON. 

248  FRINT  "TEMPERATURE  (DEGREES  R)  ' I  Temp 

249  Fa-Pbero«13.57  IATMOSPHERIC  PRESS  CONVERTED  TO  INCHES  H2o 

250  PRINT  USING  "26A  ,4X  ,2D. 20  ,X  ,4A  ,5X  ,  3D. 2D  ,5A" i "ATMOSPHERIC  PRESS  (INCHES)", P 
baro,"(Hg>"  ,Pa,"<H2o)" 

251  PRINT  •" 

252  PRINT  " 

253  PRINT  •" 

254  FRINT  "IS  DATA  0K7  FRESS  --RECORD""  TO  RECORD  DATA.  PRESS  ""REPEAT""  TO" 

255  PRINT  "REFEAT  THE  SCAN." 

256  PRINT  ■" 

257  PRINT  •••••• ••••§• • " 

258  ON  KEY  I  LABEL  -RECORD"  60T0  Storerawdata 

259  ON  KEY  4  LABEL  "REPEAT"  60T0  Repeataean 

260  Spln2:    GOTO  Spln2 

261  Repeatscan:     IF  Noofprbs-2  THEN 

262  60TO  Start2prbfl 

263  ELSE 

264  60T0  Slartlprb 

265  END  IF 

266  Storerawdata:    I  STORE  RAWDATA  TO  RAWDATA  FILE 

267  IF  Noofprbs-2  THEN 

268  MAT  Rawdat-  (•) 

269  FOR  K-l  TO  19 

270  RawdaH I ,K  )-Scanvb( 1  ,K >  IASS1GN  ALL  THE  SCANIVALVE  READINGS  IN  THE 
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271 

272 

274 

275 

27G 

277 

278 

279 

280 

281 

282 

283 

285 

286 

287 

288 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

305 

306 

307 

308 

309 

310 

311 

312 

313 

315 

316 

317 

318 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 


ISCANVB  ARRAY  TO  THE  RAWDAT  ARRAY  ELEMENT 
IBY  ELEMENT 


NEXT  K 

RaudaH  I  ,20>-Posltl 

RawdaU  1  ,21  )-Pob1  tu 

RawdaH  1  .22  HYawchnrdl 

RawdaH  I  ,23  >-Yawchnrdu 

RaudaU  I  ,24  )-Te«pchnrd 

RawdaH  I  ,25>-Pa 

OUTPUT  »PatM .SceniRawdat < • > 


MAT  Scaled-  (0) 

FOR  K-l  TO  19 

Scaled(  1  ,K  >-Prnt  datb*  I  ,K  ) 

NEXT  K 

Scaled* I  ,20>-Posltl 

Scaled( I  .21 >-Posltu 

Scaled!  1  .22 >-Yawl 

Sca!ed( 1  ,23)-Yawu 

Scaled( 1  ,24  )-Tenp 

Scaled< 1  ,25)-Pa 

OUTPUT  ePath2.ScaniScaled(*> 

ELSE 

MAT  Raudat-  (0) 

FOR  K-l  TO  14 


I  THE  DATA  IS  STORED  IN  THE  RAW  DATA 
IFILE  WHICH  WAS  PREVIOUSLY  CREATED. 
I  THIS  IS  A  RANDOM  OUTPUT  STATEMENT. 


I  SAME  METHOD  HERE  EXCEPT  SCALED  DATA 
IIS  REASSI6NE0. 


IFOR  THE  ONE  FROBE  OPTION.  ASSIGNS 
IALL  THE  SCANIVALVE  READINGS  IN  THE 
I  ARRAY  TO  THE  RAWDAT  ARRAY  ELEMENT 
IBY  ELEMENT. 


Paudatl I 
NEXT  K 
Rawdat ( 1 
RawdaH  1 
RaudaU  1 
RaudaU  I 


K)-Scanvb( I  ,K  ) 

15>-Poslt 

16  >-Yauchnrd 

17  )-Tenpchnrd 
18)-Pa 


OUTPUT  0Fath1  .ScamRawdaU  •  > 


MAT  Scaled-  (0) 

FOR  K«1  TO  14 

Scaled* I  ,K  )-Prnt datb( 1  ,K) 


I  THE  T  IS  STORED  IN  THE  RAW  DATA 
IWHIO;  IS  PREVIOUSLY  CREATED.  THIS 
IIS  A  RANDOM  OUTPUT  STATEMENT. 


I  SAME  METHOD  HERE  EXCEFT  SCALED  DATA 
IIS  REASSIGNED. 


NEXT  K 
Scaled* I 
Scaled* 1 
Scaled* I 
Scaled* 1 


,15)-P03lt 

,I6)-Yaw 

,17)-Tenp 

,18>-Pa 

OUTPUT  PPath2,ScamScaled<«  > 
END  IF 


PRINT 


PRINT  "" 

PRINT  'PRESS  "60  ON"  TO  CONTINUE  TAKING  OATA.  PRESS 

PRINT  "TO  TERMINATE  PROBE  DATA  COLLECTION.- 

FRINT  " 


"END  PRB  DATA- 


PRINT 


ON  KEY  I  LABEL  "END  PRB  DATA"  60T0  Print f 1 lename 
ON  KEY  4  LABEL  "60  ON"  60T0  Collectdata 
SpJn3:    60T0  5pln3 
Collectdata:   IF  Noofprbs-2  THEN 
GOTO  Start2prbs 
ELSE 

6OT0  Start Iprb 
END  IF 

PRINT  "•#•#••• »«•••••••■•••••••«•«««# 

PRINT  " 
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343  Prlntfllename:   PRINT  "RAW  PROBE  DATA  IS  STORED  " 

344  PRINT  "IN  DATA  FILE"  .Rauf 1 le*  " 

345  PRINT  *" 

346  PRINT  * • i 

347  PRINT  " 

348  FRINT  'FROBE  RAW  DATA  SCALED  TO  ENGINEERING  UNITS' 

349  PRINT  "IS  STORED  IN  REDDATA  FILE' .Sel f 1 le« 

350  PRINT  " 

351  PRINT  " •• • ■ 

352  PRINT  "" 

353  PRINT  "ENSURE  THE  PROBE  IS  CLEAR  OF  THE  INSTRUMENTED  BLADE." 

354  PRINT  " 

355  PRINT  " • 

35B  PRINT  " 

357  PRINT  '  PRESS  ■"COLLECT  DATA*"  TO  COLLECT  DATA  FOR  THE  INSTRUMENTED  BLADE' 

359  PRINT  *  PRESS  "SO  ON-'  TO  CONTINUE  UITH  THE  PROGRAM." 

359  PRINT  "■ 

350  ON  KEY  4  LABEL  '60  ON"  GOTO  Prlntoptlonl 

361  ON  KEY  1  LABEL  'COLLECT  DATA'  60T0  Naneflle 

362  Spln4:   GOTO  Spln4 

363  Nanefile:   MASS  STORAGE  IS  VCLASSICK/DATA"       ICODING  FOR  INSTRUMENTED 

364  IBLAOE  SECTION  OF  PROGRAM  IS  SAME  AS  FOR 

IPROBE  SECTION. 

366  FRINT  ' ...••••........... 

367  PRINT  " 

369  PRINT  'NAME  FILE  FOR  THE  RAW  DATA  TO  BE  COLLECTED  FROM  THE  BLADE." 

369  INPUT  Raubladflle* 

370  CREATE  BDAT  Rawbladf 1 la»  ,  100 ,384   1100  RECORDS.  EACH  RECORD  CAN  CONTAIN 

371  148  REAL  NUMBERS  8X48-384. 

373  ASSIGN  PPath3  TO  Raubladf 1 leS 

374  MASS  STORAGE  IS  "/CLASSICK/REDDATA" 

375  PRINT  ' • • • ♦« 

376  PRINT  " 

377  PRINT  'NAME  FILE  FOR  THE  RAU  BLADE  DATA  SCALED  TO  ENGINEERING  UNITS.' 

378  INPUT  SclbladflleS 

379  PRINT  " 

380  PRINT  '••• 

381  CREATE  BDAT  Sc lbladf 1 le*  .  1 00  .384 

382  ASSIGN  PFath4  TO  Sclbladfile* 

383  Bladeread:    MAT  Scanva-  (0) 

384  FRINT  'SCAN  NUMBER' .Scan 

365  FRINT  'FORT         VOLTAGE  GUA6E  FRESS( INCHES  H2o>" 

386  FOR  Da-Dporta  TO  Hporta 

387  CALL  Scnvpor tpos i l( Scnva  ,Da  .Scnhnsvca  .Sens tpsvca  ) 

388  CALL  Readdvm) Da .Scnrdsvca  ) 

389  Prnldata( 1  .Da  >  =  Scanva< I  .Da  )«10000 

390  IF  Da>1  THEN  Prntdataf 1  ,Da)-Scanva( I  ,Da >• I 0000-Prnt data* I  .1  > 

391  PRINT  US1N6  "DD  .  I0X  .MD. 3DE  ,  I0X ,MD. 3DE' iDa  ,Scanva< I .Da  )  .Prnt da ta< I  .Da  ) 

392  NEXT  Da 

393  FRINT  ' • " 

394  PRINT  " 

395  FRINT  'IS  DATA  0K7  PRESS  "REPEAT"  TO  REPEAT  THE  SCAN.  PRESS  "RECORD"" 

396  FRINT  'TO  RECORD  THE  DATA." 

397  PRINT  " 

398  FRINT  ' • • • ' 

399  ON  KEY  1  LABEL  'RECORD'  60T0  Storedata 

400  ON  KEY  4  LABEL  "REPEAT'  60T0  Bladeread 

401  Spln5:    GOTO  SplnS 

402  Storedata:   OUTPUT  »Pat h3l Scanvat • > 

403  OUTPUT  PPath4iPrntdate<»> 

404  PRINT  'THIS  DATA  IS  ASSOCIATED  WITH  THE  LAST  SCAN  OF  FILE   ".SclflleS 

405  PRINT  " 

406  Prlntoptlonl:   PRINT  ••••••••••«« «... - 

407  PRINT  " 

408  PRINT  'ALIGN  PAPER  IN  PRINTER.  ' 

409  PRINT  " 
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410  PRINT  "TO  FRINT  OUT  A  TABULATION  OF  THE  RAW  DATA  COLLECTED  FROM" 

411  PRINT  - 

412  PRINT  "THE  PROBE(S).  FRESS  ""RAW  TABLE"".  PRESS  ""GO  ON""" 

413  PRINT  "" 

414  PRINT  "TO  CONTINUE  WITH  THE  PROGRAM." 

415  PRINT  "■ 

416  PRINT  ■•••••«•••§■•••••••••§•• ••• • • " 

417  ON  KEY  I  LABEL  "RAW     TABLE"  GOTO  Pri ntrautable 

418  ON  KEY  4  LABEL  "GO  ON"  GOTO  Prlntoptlon2 

419  SpinG:   60T0  SplnG 

420  Prlntrawtable:   MASS  5TORA6E  IS  "/CLASSICK/DATA" 

421  ASSIGN  BPathl  TO  Raufllet     ISTATEMENT  PUTS  FILE  POINTER  AT  BEGINING 

422  IOF  FILE. 

424  PRINT  "" 

425  PRINT  "FRESS  ""ONE  FROBE""  IF  ONE  PROBE  WAS  USED." 
42G   PRINT  "PRESS  •"TWO  PROBES"  IF  TWO  PROBES  WERE  USED." 

427  PRINT  "" 

428  PRINT  ' * " 

429  ON  KEY  1  LABEL  "ONE      PROBE"  GOTO  Nunberof prbs  I 

430  ON  KEY  4  LABEL  "TWO     PROBES"  GOTO  Nunberof prbs2 

431  Spln7:   GOTO  Spln7 

432  Nunberof prbs  1  :   Noofprbs"! 

433  GOTO    Houinanyprbs 

434  Nunberof prbs2 :  Noofprbs  =  2 

435  Hounanyprbs:      IF  Noofprbs=2  THEN 

43G  FRINTER  IS  Prnter        I  SENDS  PRINT  STATEMENTS  TO  THE  PRINTER. 

437  PRINT  " « ...i...- 

438  PRINT  "PROBE  RAW  DATA  FILE    ",Rauflle$ 

439  PRINT  " •••• •• • ....- 

440  PRINT  "SCAN    L  PRB      I  2  3  4 
5" 

44)   PRINT  "        POSIT" 

442  FOR  N»l  TO  100 

443  ENTER  SFathl  ,N| Rawdat  (  • )        ISTATEMENT  ACCESSES  THE  RAW  DATA  FILE  IN 

444  ! RANDOM  MODE. 

446  ON  END  SFathl  GOTO  Twoprlntraul       I  SINCE  ALL  RECORDS  OF  A  FILE  MAY 

447  INOT  BE  FILLED  (RECALL  100  RECORDS  WERE 

448  IRESERVED  FOR  100  DATA  POINTS),  THE  ON 

449  "END  STATEMENT  ALLOWS  THE  PROGRAM  TO 

450  ICONTINUE  AT  THE  Tuopr lntraul  LINE  WHEN 

451  IAN  END  OF  FILE  CONDITION  OCCURS. 

453  Posit 1-Raudat< I ,20) 

454  Fort  l-Rawdat< I  ,1 > 

455  Port2  =  Rauidat( I ,2) 

456  Port3'Raudat< 1 ,3) 

457  Port4=Rawdat( 1 ,4) 

458  Port5-Raurdat<  1  ,5) 

459  FRINT  USING  "4D ,3X ,4D. 2D ,3X ,MD. 30E ,3X ,MD. 3DE ,3X ,MD. 3DE ,3X ,MD . 3DE  ,3X  ,MD. 3DE" 
iN.Positl .Portl  .Port 2 .Port 3, Port 4, Port 5 

460  NEXT  N 

461  Tuoprlntrawl  :   PRINT  "• •« • • 


462  PRINT  "SCAN   G  7  8  9  10 
II" 

463  FOR  N-l  TO  100 

464  ENTER  PPathl  ,N|Rawdet<«  ) 

465  ON  END  PFathl  GOTO  Twoprintraw2 

466  Port6-Rawdat( t  .6) 

467  Port7=Raudat< 1 ,7) 

468  Port8'Rawdat( I ,8) 

469  Port9«Rawdat< 1 .9) 

470  Port 10-Raudat( 1 .10) 

471  Port  I l-Raudat( I  .1  I  > 

472  PRINT  USING  "40 ,3X ,MD. 3DE ,3X ,MD. 3DE ,3X ,MD. 3DE ,3X  ,MD. 3DE ,2X ,MD. 3DE  ,2X  ,MD. 3DE 
" I N. Port  6, Port  7. PortB. Port  9. Port  10. Port  11 

473  NEXT  N 
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474    Twoprlntraw2:       FRINT 


475 

PRINT  "SCAN    U  PRB      12            13 

16" 

47G 

FRINT  "        POSIT- 

477 

FOR  N-l  TO  100 

4  78 

ENTER  PFatht  ,NiRawdat(  •  ) 

479 

ON  END  PPathl  GOTO  Twoprlntrau3 

480 

Positu-Rawdat< 1  ,21  ) 

481 

Portt2-Raudat<  1  ,12  ) 

482 

Fort13-Raudat<  1  .13) 

483 

Port I4-Raudat( 1.14) 

484 

Fort  I5-Rawdat<  1,15) 

485 

Port 16-Raudat< 1,16) 

488 

PRINT  USING  "4D.3X  ,40.20, 3X . MO. 3DE.3X .MD.3DE 

|N.F 

osltu. Port  12, Port  13, Port  14, Port  15, Port  IB 

487 

NEXT  N 

488 

14 


15 


,3X .M0.3DE ,3X .M0.3DE  .3X  .M0.3DE- 


489 
490 
491 
4  92 
493 
494 
4  95 
4  96 
497 
498 
499 


18 


19 


FRINT  "SCAN    17 
FOR  N-1  TO  100 
ENTER  PPathl  ,NiRaudat( •  ) 
ON  END  PPathl  GOTO  Tuoprlntrau4 
Port I7-Rawdat( 1,17) 
Fort  !8-Rauidat(  1,18) 
Port I9-Raudat< 1.19) 
Pa-Rawdat( 1  ,25  > 

FRINT  USING  '4D.3X  .ND.3DE  ,4X  .MD.3DE ,4X .MD.30E- iN.Port 17 .Port  18 .Port  19 
NEXT  N 
Tuoprlntraw4:   PRINT  "•«••••••••«• iiiii(iiiiMi<i<fiiiiiiiii<i«ii 


500 
501 
502 
503 
504 
505 
506 
507 
508 
509 


■SCAN 


YAW  L 
VOLT 


FRINT 

PRINT 
FOR  N-1  TO  100 
ENTER  PFathl  ,N|RaudatC  ) 
ON  END  PFathl  GOTO  Twoprlntr 
Yauichnrdl'Rawdat  (  1.22) 
Yauehnrdu-Rewdat  (  1.23) 
Tenpchnrd-Rawdat ( I  ,24  ) 
Fa'Raudat (  I  ,25  ) 
PRINT  U5IN6  -4D.3X  .HD.3DE.4X 


YAW  U 
VOLT 


au5 


TEMPCHN 
VOLT 


ATHOS" 
PRESSURE' 


du  ,  Tenpchnrd ,Pa 


510 
51  I 
512 
513 
514 
515 
51G 
517 
518 
519 
520 
521 
523 
524 
525 
526 
528 
529 
530 
531 
532 
533 
534 
•  .N. 


NEXT  N 
Twopr 1 n trau5 

IS 


OFF  END  PPathl 
ELSE 
Prnter 


MD.3DE  ,4X  ,MD.3DE,4X  ,30. 2D" |N , Yauchnrdl .Yauchnr 


TERMINATES  THE  ON  END  COMMAND 


FRINTER 

PRINT  • ••• 

PRINT  "PROBE  RAU  DATA  FILE 
FRINT  '•• •♦«• ••• 

PRINT 
PRINT 
FOR  N 


'SCAN 


TO 


PROBE 
POSIT' 
100 


I 


.Rauf 1 le* 
2 


ENTER  eFathl  ,NiRawdat( • ) 

ON  END  PPathl  GOTO  Prlntraul 


Poslt-RaudaH I ,15) 
Port 1-Raudat( 1,1) 
Port2=Rauidat(  I  ,2) 
Port3  =  Raudat(  I  ,3) 
Fort4'Rawdat( 1  .4  ) 
Fort5-Raudat(  I  .5  ) 
FRINT  USING  -40  ,2X  ,40 . 20  ,2X 
Poilt,Port1 ,Port2,Port3,Port4 


I5TATEMENT  ACCESSES  THE  RAU  DATA  FILE  IN 
I  RANDOM  MODE 

I  SINCE  ALL  RECORDS  OF  A  FILE  MAY  NOT  BE 
IFILLED  (RECALL  100  WERE  USED  FOR  100 
IOATA  POINTS),  ON  END  STATEMENT  ALLOWS  THE 
IPROGRAM  TO  CONTINUE  AT  THE  Prlntraul  LINE 


,MD.3DE ,2* .MD.3DE ,2X  .MD.3DE ,2X .MD.3DE  ,2X  ,MD.3DE 
.Port5 
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535  NEXT  N 

53G  Frlntrawl:    FRINT  " • • • •••• 

537  PRINT  'SCAN   6  7            8            9            10           II 

538  FOR  N-1  TO  100 

539  ENTER  PPathl  ,N|Raudat<» > 

540  ON  END  SFathl  60T0  Prlntraw2 

541  Port6-Rau.dat<  I  ,6) 

542  Port7-Rawdat< I ,7) 

543  PortB-Rawdatf I ,8 ) 

544  Port9-Rawdat< I ,9) 

545  Port 10=Raudat< I ,10) 
54G  Port) l-Raudat< I  .1  I  ) 

547  PRINT  USING  "40 ,2X ,MD. 3DE ,2X ,M0. 30E ,2X ,MD. 3DE  ,2X .MO. 3DE ,2X ,MD . 3DE  ,2X  ,HD. 3DE 
"|N.Port6,Port7,Port8,Port9,Portl0,Port1 I 

548  NEXT  N 

549  Prlntrau2:    PRINT 


550  PRINT  "SCAN   12  13  14  YAUCHAN      TEMPCHAN     AT 
MOS" 

551  PRINT  ■  VOLTAGE      VOLTAGE      PR 
ESSURE" 

552  FOR  N=1  TO  100 

553  ENTER  SPathl  ,NtRaudat('  > 

554  ON  END  PPathl  GOTO  Prlntraw3 

555  Port 12=Raudat( 1.12) 
55G   Port I3-Reudat< 1,13) 

557  Port  14-Rawdat( 1.14) 

558  Yauichnrd-Rawdatt  I  ,16  > 

559  Tenpchnrd-RaudaH  I  ,17  ) 
5G0   Pa*Rawdat( 1  ,18) 

5G1   PRINT  USING  "40 ,2X .MO . 3DE ,2X ,MD. 30E ,2X ,MD. 3DE  ,2X  .HO . 3DE  ,2X  ,MD.  3DE  ,2X  ,30.  2D" 

I N, Port  12  .Port  13 .Port  14 , Yawchnrd ,  Tempo hnrd ,Pa 

5G2   NEXT  N 

5G3  Prlntraw3:   PRINT 

5G4    OFF  END  SPathl  ITERMINATES  ON  END  STATEMENT 

5G5   END  IF 

56G    PRINTER  IS  Scren       IRETURNS  PRINT  STATEMENTS  TO  MONITOR. 

567   PRINT  ' • 

5G8    PRINT  "" 

569  Printoptton2:  PRINT  "ALIGN  PAPER  IN  PRINTER." 

570  FRINT  " 

571  FRINT  "TO  PRINTOUT  A  TABULATION  OF  THE  PROBE  DATA  SCALED  IN" 

572  PRINT  '" 

573  FRINT  "ENGINEERING  UNITS.  PRESS  ""SCALED  DATA""." 

574  PRINT  "" 

575  PRINT  "PRESS  '"GO  ON" "TO  CONTINUE  WITH  THE  PROGRAM. " 

576  PRINT  "" 

577  PRINT  " • 

578  ON  KEY  I  LABEL  "  SCALED   OATA"  GOTO  Prnt scaledt ab le 

579  ON  KEY  4  LABEL  "GO  ON"  GOTO  Prlntoptlon3 

580  SplnB:   GOTO  SplnB 

581  Prntscaledtable:      MASS  ST0RA6E  IS  "/CLASS ICK/REDOATA" 

582  ASSIGN  PPath2  TO  Sclflle* 

583  PRINT  "" 

584  PRINT  "FRESS  "ONE  PROBE" '  IF  ONE  FROBE  UAS  USED." 

585  PRINT  "PRESS  ""TWO  PROBES  ""  IF  TWO  PROBES  WERE  USED." 

586  PRINT  "" 

587  PRINT  " « " 

588  ON  KEY  1  LABEL  "ONE      PROBE"  GOTO  Nunberprobes I 

589  ON  KEY  4  LABEL  "TWO     PROBES"  60T0  Nunborprobes2 

590  Sp!n9:  GOTO  Spln9 

591  Nunberprobes I :   Noofprbs"! 

592  GOTO  Hownanyprobes 
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593  Numberprobes2 !  Noofprbs»2 

594  Hounanyprobes :  IF  Noofprba"2  THEN 

595  PRINTER  IS  Prnter 

59E   PRINT  " • • ....... 

597  PRINT  -PROBE  SCALED  OATA  FILE    '.SclfileS 

599   PRINT  • ......4 " 

599  PRINT  'SCAN    L  PRB  12            3            4 
5" 

600  PRINT  •  POSIT" 
E0!  FOR  N=l  TO  100 

B02  ENTER  PFath2  .Ni Scaled* • ) 

603  ON  END  «Path2  60T0  Twoprlnt bc 1  I 

G04  Posltl-Scaled< I ,20) 

605  Port l-Scaled< I.I) 

G06  Port2-Scaled( I .2) 

607  Port3-Scaled<l ,3) 

608  Porl4-Sceled( t  .4) 

609  Port5-Sceled< I .5) 

610  PRINT  USIN6  '4D  ,3X  ,40  .  2D  ,3X  ,M0.  3DE  ,3X  ,MD.  3DE  ,3X  ,MD.  3DE  ,3X  ,MD.  3DE  ,3X  ,MD.  3DE' 
iN.Poslt 1  .Port)  .Port  2, Port  3. Port  4  .Port  5 

611  NEXT  N 

612  Tuoprintscl I :   FRINT  ■ 


613  FRINT  "SCAN    6  7  8  9  10 
I  I  • 

614  FOR  N-l  TO  100 

615  ENTER  *Fath2,NiScaled< •  ) 

GI6  ON  END  PFath2  GOTO  Tuioprlnt sc  12 

617  Port6-Sceled< I  .6  ) 

618  Port7-5caled( I  .7  ) 

619  PortB=Scaled( I  ,8  ) 

620  Fort9=5caled< I ,9> 

621  Portl0-Scaled( 1.10) 

622  Port  I l-Scaled( t  .1  I  ) 

623  FRINT  USING  " 4D ,3X  ,MD. 3DE ,3X ,MD. 3DE .3X ,MD. 3DE  ,3X  .MO. 3DE ,2X ,ND. 3DE ,2X  ,MD. 3DE 
"  iN  .Port  6  .Port  7. Port  6. Port  9. Port  10. Port  I  I 

G24  NEXT  N 

625  Tuoprlntscl2:   PRINT  "«•••••••« 


626  PRINT  "SCAN   U  FRB      12  13  14  15 
IB" 

627  PRINT  •        POSIT- 

628  FOR  N-l  TO  100 

629  ENTER  8Fath2  ,N|Sca led( •  ) 

630  ON  END  "Path2  GOTO  Tuoprlntscl3 

631  Posl tu=Scaled< I  .21  ) 

632  Portl2-Scaled( 1.12) 

633  Fortl3-Scaled( 1,13) 

634  Portl4»Scaled< 1.14) 

635  Portl5=Scaled< 1.15) 

636  Port16  =  5caled< I  .16  ) 

637  PRINT  USING  "4D .3X ,4D. 20 ,3X ,MD. 3DE ,3X ,MD. 3DE  ,3X  ,MD. 3DE  ,3X  ,MD. 3DE  ,3X  ,M0. 3DE ' 
l N, Posl tu, Port  I  2, Port  I  3, Port  I  4, Port  1 5. Port  1 6 

638  NEXT  N 

639  Twoprlntscl3:   PRINT  '••••••••••••••••••••i ....#.. 


640  FRINT  'SCAN    17  16  19  " 

641  FOR  N-l  TO  100 

642  ENTER  •Path2,NiScaled<«> 

643  ON  END  *Path2  60T0  Twoprlnt sc 14 

644  Portl7-Scaled< I  ,I7> 

645  PortlB-Sceledl I  ,18) 

646  Port l9=Scaled( I .19) 

647  PRINT  USIN6  '40  ,3X  ,MD. 3DE  ,4X  ,MD. 3DE  ,4X  ,M0. 3DE" |N  .Port  I  7 ,Por t I  8  .Port  I  9 

648  NEXT  N 

649  TuoprintscU:   PRINT  "«••••••••••••••••• •• 
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650    PRINT  "SCAN    YAW  L  YAW  U  TEMP  ATMOS" 

E51    PRINT  "       DEG  DEG  <Ri  PRESSURE" 

652  FOR  N-1  TO  100 

653  ENTER  PPa th2  ,Ni Scaled* •  ) 

654  ON  END  9Palh2  GOTO  Tuoprlnlsc 15 

655  Yawl-Scaled< I  ,22) 

656  Yawu-Scaledl 1  .23) 

657  Tenp-Scaled( I  ,24  ) 

658  Pa-Scaled< I  ,25> 

659  PRINT  USING  "4D  ,3X  ,MO. 3DE  ,4X ,MO. 3DE  .4X  ,MD. 3DE  ,4X  .3D.2D" (N  .Yawl  ,Yawu .Tenp  ,Pa 

660  NEXT  N 

661  TuoprlntsclS:   OFF  END  PPath2 

662  ELSE 

663  I   ENO  IF 

664  PRINTER  IS  Prnter 

665  PRINT  " • • 

666  PRINT  "PROBE  SCALED  DATA  FILE    ".SclflleJ 

667  PRINT  * • • " 

669  PRINT  "SCAN    PROBE      12  3  4 

5" 

669  PRINT  "       POSIT" 

670  FOR  N-1  TO  100 

671  ENTER  ePath2.N|Scaled(«  ) 

672  ON  END  PPath2  60T0  Printacll 

673  Fosit-Scaled<  I  .15) 

674  Portl-Scaled< I  .1  ) 

675  Port2-Scaled( I  ,2) 

676  Port3-ScaJed<  I  ,3) 

677  Port4-Scaled( 1  .4) 

678  Port5-Scaled< I  .5) 

679  PRINT  USING  "4D ,3X ,4D . 2D ,3X ,MD. 3DE ,3X ,MD. 3DE ,3X  ,MD. 3DE ,3X .MD.3DE ,3X  ,MD. 3DE 
" I N. Posit  .Port  I  .Port  2, Port  3, Port  4. Port 5 

680  NEXT  N 

681  Printscll:    PRINT  "• • 


682  PRINT  "SCAN  6  7  8  9  10  11 

663  FOR  N-1  TO  100 

684  ENTER  PFat h2 ,N| Seal ed( •  ) 

685  ON  END  9Path2  GOTO  Prlntscl2 

686  Port6=Sca)ed( 1 ,6) 

687  Fort7=Scaled( I ,7) 

688  Fort8-Scaled< I .8 ) 

689  Port9=Scaled< I ,9) 

690  Fort I0-Scaled<  1.10) 

691  Portl 1=Scaled( 1,11) 

692  PRINT  USING  "4D ,2X ,MD. 3DE ,2X ,MD . 3DE ,2X ,ND. 3DE ,2X ,MD. 3DE ,2X ,MD. 3DE  ,2X  ,ND .3DE 
"  l  N,Por-t6.  Port  7.  Port  8,  Port  9.  Port  10,  Port  11 

693  NEXT  N 

694  Frintscl2:    FRINT  " • 


695  PRINT  "SCAN   12  13  14  YAW  TEMP         AT 
MOS" 

696  PRINT  "  DEG         (R)         PR 
ESS" 

697  FOR  N-1  TO  100 

698  ENTER  PPath2  ,N( Scaled) •  ) 

699  ON  END  9Path2  GOTO  Prlntscl3 

700  Port I2-Scaled( 1  .12  ) 

701  Port!3-Scaled< 1,13) 

702  Portl4-Scaled( 1  .14  ) 

703  Yau-Scaled( 1 ,16) 

704  Temp-Sceled< I ,17) 

705  Pa-Sceled< 1,18) 

706  PRINT  IJ<WNG  ■40,2X,MD.3DE,2X,M0.3DE,2X,MD.3DE,2X/MD.3DE/2X_,MD.3DE,2X,3D.20" 
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I N,  Port  12  .Port  I  3  .Port  14  .Yau  .Tenp  ,Pa 

707  NEXT  N 

708  Prlntscl3:   PRINT  " • -• 

709  OFF  END  PPath2 

710  END  IF 

71  I  PRINTER  IS  Scren 

712  PRINT  ■.... 

713  PRINT  ** 

714  Prlnloptlon3:  PRINT  'PRESS  "BLADE  DATA""  FOR  BLAOE  DATA  PRINT  OPTIONS. 

715  PRINT  "" 

7IG  PRINT  "PRESS  ""GO  ON""  TO  CONTINUE  PROGRAM." 

717  PRINT  "" 

718  PRINT  " •••• 

719  ON  KEY  I  LABEL  "BLADE    DATA"  GOTO  PrlntoptJon4 

720  ON  KEY  4  LABEL  "60  ON"  60T0  Loadoptlon! 

721  SptnIB:   GOTO  Splnl0 

722  Prlntoptlon4:  PRINT  "" 

723  PRINT  "ALIGN  PAPER  IN  PRINTER." 

724  PRINT  "" 

725  PRINT  "TO  PRINT  OUT  A  TABULATION  OF  THE  RAU  BLADE  DATA" 
72G  PRINT  "" 

727  PRINT  "PRESS  ""BLADE  DATA"".  PRESS  ""60  ON""  TO  CONTINUE. 

728  PRINT  "" 

729  PRINT  " •  • 

730  ON  KEY  1  LABEL  "BLADE    DATA"  GOTO  Prntb ladedata 

731  ON  KEY  4  LABEL  "GO  ON"  GOTO  Prlntoptlon5 

732  Splnll  :  GOTO  Spin) I 

733  Prntblededate:  MASS  STORAGE  IS  " /CLASSICK/DATA" 

734  ASSIGN  PPath3  TO  Rawbladflle* 

735  PRINTER  IS  Prnter 

73G  PRINT " 

737  PRINT  "BLADE  RAU  DATA  FILE    "  .Raubladf 1 1 e* 

738  PRINT  " • ■ 

739  FRINT  " 

740  FRINT  "FROBE  DATA  ASSOCIATED  WITH  THE  BLADE  DATA  IS  CONTAINED* 

741  PRINT  "IN  FILE:   "  .RauflleS 

742  PRINT  "SCAN:"  ,5can 

743  PRINT  "SCANIVALUE  VOLTAGE" 

744  PRINT  "FORT  READIN6" 

745  FOR  N-1  TO  48 

746  ENTER  PPa t h3 i Scanval I  ,N  ) 

747  FRINT  USING  "DD  ,20X  ,MD. 3DE " |N ,Scanva<  I  ,N ) 

748  NEXT  N 

749  PRINTER  IS  Scren 

750  Prlntoptlon5:   PRINT  "• 

751  PRINT  "" 

752  PRINT  "ALIGN  PAPER  IN  PRINTER." 

753  FRINT  "" 

754  FRINT  "TO  PRINT  OUT  A  TABULATION  OF  THE  BLAOE  DATA  SCALED  TO  " 

755  PRINT  "" 

75G  PRINT  "ENGINEERING  UNITS.  PRESS  ""SCALED  DATA""." 

757  FRINT  "" 

758  PRINT  "PRESS  ""GO  ON""  TO  TERMINATE  PROGRAM." 

759  FRINT  "" 

7G0  ON  KEY  I  LABEL  "SCALED   DATA"  GOTO  Prnt sc ldbladdat 

7GI  ON  KEY  4  LABEL  "GO  ON"  60T0  Loadoptlonl 

7G2  Splnl2:       GOTO  Splnl2 

7G3  Prntscldbladdat:      MASS  STORAGE  IS  "/CLASSICK/REDDATA" 

7G4  ASSIGN  9Path4  TO  SclbladflleS 

7G5  PRINTER  IS  Prnter 

7GG  FRINT  "......... .  • 

7G7  PRINT  "BLADE  SCALED  DATA  FILE    '  .Sclbledf 1  let 

7RR  PRINT  ".......#....•«... •••• ..■ 
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769  PRINT  "" 

770  PRINT  'PROBE  DATA  ASSOCIATED  UITH  THE  BLADE  DATA  IS  CONTAINED" 

771  FRINT  "IN  FILE:   ".SclflloJ 

772  PRINT  -SCAN:"  .Scan 

773  PRINT  "SCANIUALUE  PRESS  (INCHES  H2o)" 

774  PRINT  "PORT" 

775  FOR  N-l  TO  48 

77G  ENTER  PPat h4 iPrnt data( 1 ,N) 

777  PRINT  USING  "DO  ,20X  ,MD. 3DE" |N  .Prnt data( 1 ,N  ) 

778  NEXT  N 

779  Loadoptionl:   PRINTER  IS  Scren 

780  PRINT  "•• • • ......i 

781  PRINT  ■■ 

782  PRINT  "TO  LOAD  PROGRAM  TO  REDUCE  THE  ACQUIRED  DATA" 

783  PRINT  ■" 

784  PRINT  "PRESS  ""CALC".   PRESS  ""GO  ON""  TO  TERMINATE  THE  PROGRAM" 

785  PRINT  " 

78G  PRINT  ■•••• ...... i............... 

787  ON  KEY  I  LABE^  "CALC  GOTO  Loadupl 

788  ON  KEY  4  LABEL  "GO  ON"  60T0  Fin 

789  Spln!3:       60T0  Spln13 

790  Loadupl:  MASS  STORAGE  IS  " /CLASSICK/PROGS " 

791  LOAD  "CALC-  .10 

792  Fin:  FRINT  " 

793  PRINT  " • 

794  PRINT  "- 

795  PRINT  "  END  OF  FROGRAM" 
79G  PRINT  *• 

797  PRINT 

798  PRINT  " • • •• 

799  END 
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B7.2      Reduction   Program   CALC 


20 

30 

40 

41 

42 

50 

70 

71 

72 

60 

90 

91 

92 

94 

95 

9G 

98 

99 

101 

102 

103 

104 

105 

106 

107 

10S 

109 

1  10 

I  1  I 

1  12 

I  14 

1  15 

I  16 

120 

130 

131 

132 

134 

135 

136 

140 

141 

142 

144 

145 

146 

148 

151 

160 

161 

162 

170 

171 

172 

174 

180 

190 

191 

192 

200 

201 

220 

221 


IPROGRAM  CALC 

I  THIS  PROGRAM  TAKES  THE  FILES  OF  DATA  COLLECTED  FROM  THE  PROBE(S) 

I  AND  REDUCES  THE  DATA  TO   USEFUL  ENGINEERING  QUANTITIES  THESE 

I  VALUES  ARE  PRINTED  IN  TABLE  FORM. 

IMUCH  OF  THE  CODING  IN  THIS  PROGRAM  HAS  BEEN  PREVIOUSLY  COMMENTED  ON 

UN  PROGRAM  ACQUIRE. 

OPTION  BASE  I 

DIM  Raddatf  1  , 1  06  ) 


DIM  P(6  .6  ) 
DIM  X(G  ,6  > 
OIM  Pu(6.6  ) 

DIM  Xu<6,6> 
DIM  Knarayf 100) 

DIM  Prbposf 100) 
DIM  Aarayt 100  ) 
DIM  Baray( 100) 
MAT  Reddat-  (0) 
MAT  Knaray-  (0) 
MAT  Prbpos-  (0) 
MAT  Aaray-  (0) 
MAT  Baray-  (0) 
OEG 

Prnler-701 
Scren-1 
Flrstbladeprt-4 


Lastbladeprt-48 

G*l  .4 

Cp*.24 

LOADSUB  ALL  FROM 

MASS  STORAGE  IS  - 

PRINT  - 


IAN  ARRAY  FOR  THE  SCALED  DATA  FROM  ACQUIRE. 

•RECALL  THAT  THE  SCALED  DATA  WAS  STORED  BY 

I A  RANDOM  OUTPUT  STATEMENT. 

•THE  ARRAY  FOR  THE  PHI  COEFFICIENTS. 

I  THE  ARRAY  FOR  THE  X  VELOCITY  COEFFICIENTS. 

I  IF  2  PROBES  USED  THEN  THE  PHI  ARRAY  FOR 

•THE  UPPER  PROBE. 

IKN  VALUES  STORED  IN  AN  ARRAY. Kn-K  IN  TABLE 
•I  OF  CLASSIC*  THESIS. 

•AN  ARRAY  OF  VALUES  USED  IN  THE  CALCULATION 
•OF  BLADE  CP'S. 


•ALL  ANGLES  WILL  BE  IN  OEGREES. 


•FIRST  SCANIVALVE  PORT  ASSIGNED  TO  THE 
•INSTRUMENTED  Bl ADE  THAT  IS  OF  INTEREST 
•IN  THE  CP  CALCULATION. 
ILAST  ■  •  -ect. 


•/CLASSICK/ROUTINES/SUBCALC- 
/CLASSICK/REDOATA" 


PRINT  "" 

PRINT  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  PROBE  DATA  SCALED" 

PRINT  "TO  ENGINEERING  UNITS" 

INrUT  Scl file* 

ASSIGN  PPathl  TO  Self  1  let 


PRINT 


PRINT  '" 

PRINT  "ENTER  THE  PROBE  COEFFICIENT  FILE  FOR  X  VELOCITY.  THIS  WILL  BE 

PRINT  •" 

PRINT  "FOR  THE  LOWER  PROBE  IF  TWO  PROBES  ARE  BEING  USED." 

INPUT  Readx* 

ASSIGN  PPath2  TO  Readxl 

ENTER  BFath2iX(  •  ) 


PRINT 


PRINT  "" 

PRINT  "ENTER  THE  NAME  OF  THE  COEFFICIENT  FILE  FOR  PHI.  THIS  WILL  BE 

FRINT  "" 

PRINT  "FOR  THE  LOWER  PROBE  IF  TWO  PROBES  ARE  BEING  USED." 

INPUT  ReadpJ 

ASSIGN  PPath3  TO  Readpf 

ENTER  CPath3tP(«  ) 

PRINT    ■ • ••••• imnmiiiniHutii 

PRINT    "" 

PRINT  "IF  DATA  WERE  COLLECTED  WITH  ONE  PROBE,  PRESS  ""  ONE  PROBE""" 

PRINT  "* 

PRINT  "IF  DATA  WERE  COLLECTEO  WITH  TWO  PROBES.  PRESS  ""TWO  PROBES""" 

PRINT  "" 
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224 

225 

22E 

227 

228 

229 

231 

240 

250 

25! 

252 

253 

254 

255 

25G 

259 

2B0 

261 

2G2 

263 

264 

267 

268 

269 

270 

273 

274 

275 

276 

277 

278 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

31  I 

312 

313 

314 

315 


PRINT  " 

ON  KEY  1  LABEL  "ONE 

ON  KEY  4  LABEL  "TUO 
Spin! :    GOTO  Spin! 
Numberprbs I :    Noofprbs-1 

60T0  Checknoofprbs 
Nufiborprbs2 :    Noofprbs*2 
Checknoofprbs:   IF  Noofprbs-2  THEN 

MASS  STORAGE  IS  " /CLASSICK/REDOATA 


PROBE"  GOTO  Nunberprbsl 
PROBES-  GOTO  NunberprTjs2 


PRINT 


PRINT  " 

PRINT  "ENTER  THE  PILE  NAME  FOR  THE  UPPER  PROBE  COEFFICIENTS  FOR  Xvel. 

INPUT  ReadxuJ 

ASSIGN  GPeth2u  TO  ReadxuS 

ENTER  ePath2uiXu(«  ) 


PRINT 


PRINT  '" 

PRINT  'ENTER  THE  FILE  NAME  FOR  THE  UPPER  PROBE  COEFFICIENTS  FOR  PHI . * 

INPUT  ReedpuJ 

ASSIGN  PPeth3u  TO  ReadpuS 

ENTER  PPath3uiPu(»  ) 

PRINT  ■ ' 

PRINT  "" 

PRINT  "ENTER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  LOUER  PROBE 

INPUT  Calclflle* 

CREATE  BOAT  Calcl f 1 leS  ,  100 

ASSIGN  PPatM  TO  Calclfile* 

PRINT  " • 

PRINT  ""  ' 

PRINT  "ENTER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED 

INPUT  Celcufllet 

CREATE  BDAT  Calcuf 1 1 e*  ,  100 

ASSIGN  PPath5  TO  CelcuflleJ 

I 

i 


FROM  UPPER  PROBE" 


NOTE 

:  THE  SCANIUALUE 

SENSES  THE  PRESSURE  DIFFERENTIAL  FROM     • 

ATMOS.  THE 

SCANIVALUE  IS  CALIBRATED  SO  ATMOS  FRESS(Pa)   • 

READS  ZERO. 

THE 

PRESS  SENSED  AT 

A  PORT  IS 

THE  PORT 

PRESS  MINUS 

Pa 

I.e.  .GAGE  FRESS. 

TO  ELIMINATE  ERRORS  DUE  • 

TO  DVM  DRIFT,  THE   PRESS  SENSED 

BY  PORT  1 

OF  THE 

SCANIUALUE 

(Ptare-Fa-Fa)  IS  SUBTRACTED  FROM  EACH         • 

SCANIUALUE  PORT  READING. 

•   VARIABLE    VARIABLE 

AND 

SCANNER  CHANNEL 
POF    1ANNEL 

DATA  ARRAY             • 

REPRESENTS 

•   Ptare 

Pa-Pa 

PORT  I 

ReddaU  1 

J  > 

•   Peal 

Pcal-Ptare 

PORT  2 

ReddaU  ! 

.2  ) 

•   Pp 

Pplenum-Ptare 

PORT  3 

ReddaU  1 

.3) 

•  Pa 

Puallstatlc 

-Ptare   PORT  4 

ReddaU  1 

.4  ) 

•  PI 

Pl-Ptare 

PORT  5 

ReddaU  1 

.5) 

•   P2 

P2-Plare 

PORT  6 

Reddat ( 1 

,6) 

•   P3 

P3-Ptare 

PORT  7 

ReddaU  1 

.7)            • 

•   P23 

(P2+P3)/2 

•   P4 

P4-Ptare 

PORT  8 

ReddaU  1 

,8)           • 

•   P5 

P5-Ptare 

PORT  9 

ReddaU  1 

.9)            • 

•   Ptp 

Ptotalprndtl 

-Ptare   PORT  10 

ReddaU  1 

,10)           • 

•   Psp 

Pstatprndtl- 

Ptare 

PORT  11 

ReddaU  1 

.11)           • 

BLANK 

PORT  !2 

ReddaU  1 

,12  ) 

•   PIu 

Plu-Ptara 

PORT  13 

ReddaU  1 

,13) 

•   P2u 

P2u-Ptare 

PORT  14 

ReddaU  1 

,14  )          • 

•   P3u 

P3u-Ptare 

PORT  15 

ReddaU  1 

,15) 

•   P23u 

(P2u+P3u)/2 
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3  IS 

317 

318 

319 

320 

321 

322 

323 

324 

325 

32B 

327 

328 

329 

330 

331 

332 

333 

335 

33G 

337 

338 

339 

341 

342 

343 

344 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

35G 

357 

359 

359 

3G0 

362 

3E3 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

185 


P4u 
PSu 


Posit 

Posltu 

Yaw 

Yauu 

Temp 

Ps 


P4u-Ptare  PORT  16 

P5u-Ptare  PORT  17 

BLANK  PORT  18 

BLANK  PORT  19 

L  PRB  POSIT  INPUT 

U  PRB  POSIT  INPUT 

LOUER  PRB  YAU  24 

UPPER  PRB  YAU  21 

TOTAL  TEMP(PLENUM)  CHAN  10 

ATMOSPHERIC  PRESS  INPUT 


ReddaU  1,16) 

ReddaU  I  ,17) 
ReddaU  1.18) 
ReddaU  I  ,19) 
ReddaU  1  ,20) 
ReddaU  1  ,21  ) 
ReddaU  I  ,22) 
ReddaU  I  ,23) 
ReddaU  t  ,24  > 
ReddaU  I  .25) 


•DATA  REDUCTION" 


DIM  CalcU  100.25) 
MAT  Calcl-  (0> 
Plnltlal 1-0 

Tlnit lal-0 

Palnitlell-0 

FOR  N-l  TO  100 

ENTER  BPathl  .NiReddaU •  ) 

ON  END  PPathl  GOTO  Twoprlntcalc I 
Ptare-ReddaU  1.1) 


UNITIALIZES  THE  CONDITIONS  TO  CALCULATE 
'ENSEMBLE  VALUES  IN  SUBROUTINE  ENSEMBLE 


I  THE  ARRAY  IS  ENTERED  WITH  A  RANDOM 
ISTATEMENT. 

'REASSIGNMENT  OF  ARRAY  ELEMENTS  TO 
(IDENTIFIABLE  QUANTITIES  TO  BE  USEO  IN 
I  IN  SUBROUTINE  CALCULATIONS. 


Pcal-ReddaU  1  .2  > 

Pp-ReddaU  I  .3) 

Ps-ReddaU  1  .4  ) 

P1=ReddaU  1  ,5  ) 

P2-ReddaU  I  .6  ) 

P3-Reddat< 1 .7) 

P23MP2  +  P3J/2 

P4-ReddaU  1  .8) 

PS-ReddaU  I  ,9) 

Ptp-ReddaU  I  ,10) 

Psp-ReddaU  1,11) 

IBLANI- -ReddaU  1,12) 

Posl  t-ReddaU  1  .20) 

Yaw-ReddaU  1  ,22)  I  YAW  ANGLE  CORRECTION  COULD  BE  MADE 

"HERE  IF  NOT  ALREADY  DONE  IN  ACQUIRE. 

Temp  =  ReddeU  1  ,24) 

Pa-ReddaU  1  ,25) 

ICALCULATE  BETA  AND  GAMMA  COEFFICIENTS 

CALL  Bgcalc<Pa,PI  ,P23  ,P4  ,PS  .Beta  ,6emna > 

ICALCULATE  THE  ENSEMBLE  REFERENCE  VALUES  OF  PLENUM  PRESS  .PLENUM  TEMP  AND  PA 
CALL  EnsemblelPp  .Plnltlal  .Pa.Palnltlal  .Temp  ,  T Initial  ,Ppavg  .Peavg  .Tenpavg.N  ) 

ICALCULATE  Xvel  AND  Phi 

CALL  Xphlcalc(Beta  ,6anme  .  Xvel,  X<  •  )  ,  Phi,  P<  •  >  > 

ICALCULATE  Xref 

CALL  XrefcalcfPa  ,Pp  ,6, Xref  ) 

ICALCULATE  QREF  AND  VREF 

CALL  Qvrefcalc(Xref  ,Cp  .Temp  ,G,Pp  ,Pa  ,Qref  .Vref  > 

•CALCULATE  VELOCITY  AND  MACH  t  AND  0 

CALL  Vmqcalc(Xvel  ,Cp  .Temp  ,6  ,Vel .Mach.PI ,Pa,Q) 

I  CALCULATE  THE  INTEGRAND  FOR  THE  AVDR  EXPRESSION 

CALL  Kncalc(Pa,PI  .Pp.Xvel  .Xref  ,G  .Yaui.Kn) 

ICALCULATE  THE  COEFFICIENT  OF  PRESSURE  TERM  TO  BE  MASS  AVERAGED. 

"THESE  TERMS  ARE  USED  IN  THE  CALCULATION  OF  THE  LOSS  COEFFICIENT. 

CALL  CoefpresslPI  .Pp  ,Pa  .Xvel  .6  ,Cps  ,Cpt  ) 

ICALCULATE  THE   QUANTITIES  TO  BE  MASS  AVERAGED.  MULTIPLY  THESE  VALUES 

!BY  Kn  TO  GET  THE  INTEGRAND  REQUIRED  TO  CALCULATE  THE  MASS  AVERAGED  CP ' S 

CALL  Cplntegrend<Pp.PI  .Pa, 6, Xvel  .A.B.Kn) 

I  CALCULATE  Pp-PI/Qref  FOR  PLOTS 

CALL  Prefqref  IPp.PI,  Qre'.Pil) 
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38G  I    CALCULATE    STATIC    PRESSURE    UPSTREAM 

387  CALL    StatlcpressfPI  ,Pa  ,Xvel  ,G  ,Ps  ) 

389  I  DEFINE    AN   ARRAY    TO    STORE    CALCULATED   VALUES 

390  CalcKN, 1  >=Poslt 

391  CalcKN, 2  >=Beta 

392  CalcKN, 3)-Gamma 

393  Calcl(N.4>-Phl 

394  CalcKN, 5>-Xvel 

395  CalcKN, G)-Xref 
39G  CalcKN. 7>«Vel 

397  CalcKN, B>-Mach 

398  Calcl(N.9)-Yau 

399  CalcKN. 10)-Kn 

400  CalcKN.I  1  >=Cpt 

401  Calcl(N.I2 >  =  Cps 

402  Calcl(N.I3)=0ref 

403  CalcKN, I4)-Vref 

404  CalcKN. 151-0 

405  CalcKN,  IG1-A 

406  CalcKN, 17>-B 

407  CalcKN.  18  >-Pq 

408  CalcKN. 19)-Pa  IPo  &  Ps  ARE  USED  FOR  STATIC  TRESS 

409  i  RISE  CALCULATION  IN  PROGRAM  LOSS. 

411  CalcKN, 20>=Pa  !  THESE  VALUES  ARE  NOT  PRINTED. 

412  Knaray(N>-CalcKN,l0)  'WANT  TO  STORE  MORE  THAN  JUST  ONE 

413  IKn  VALUE  FOR  MASS  AVERAGING 

414  ICALCULATIONS. 

415  Prbpos(N)=CalcKN .  1  )  I""    "" 
4IS  AarayfN  )-Ca!cKN,l6  )                                                   !""     "" 

417  Baray(N)-CalcKN,17)  !""  "" 

418  Scan-N 

419  NEXT  N 

420  Twoprlntcalcl  :    OFF  END  PPathl 

421  "CALCULATE  ENSEMBLE  AVERAGE  OF  XREF 

422  CALL  Xre f enjenb le( Paavg  .Ppavg  ,G  ,Xr e f avg  ) 

423  ICALCULATE  ENSEMBLE  AVERAGE  OF  VREF 

424  CALL  Vre f ensenb le< Xre f avg ,Cp .Tenpavg  .Vref avg  ) 

425  ICALCULATE  ENSEMBLE  AVERAGE  OF  QREF 

426  CALL  Qref  ensetible(  Paavg  , Ppavg  ,G  .Xrefevg  .Orefavg  ) 

4  27    PRINT  "• •«• ••• •••• •••• ■ 

428  PRINT  "" 

429  PRINT  "ALIGN  PAFEP  IN  PRINTER.  UHEN  READY  FOP  A  HARDCOPY  OF  THE  " 

430  PRINT  "CALCULATED  DATA,  PRESS  "■REDUCED  DATA""." 

431  PRINT  "" 

4  32  PRINT  " ••••" 

433  ON  KEY  1  LABEL  "REDUCED  DATA"  GOTO  Prnldata2 

434  Spin2:    GOTO  Spln2 

435  Prntdata2:    PRINTER  IS  Prnter 

436  PRINT  " " 

437  PRINT  "FILE   "  .CalclflloS 

438  PRINT  " " 

439  PRINT  " •••• •••» • •• 

440  PRINT  ■•' 

441  PRINT  "SCAN    L  PRB  BETA          GAMMA         PHI          Xvel 
Xref  " 

442  PRINT  "  POSIT" 

443  FOR  N=l  TO  Scan 

444  PRINT  USING  "4D ,3X .40. 20 ,3X ,MD. 3DE ,3X ,MD. 3DE ,3X  ,MD . 3DE ,2X ,MD . 3DE  ,2X  .MD . 3DE 
"iN. CalcKN,  I  >  .CalcKN,  2),  CalcKN,  3).  CalcKN,  4),  CalcKN.  5),  CalcKN.G  ) 

445  NEXT  N 
44G  PRINT  "" 

447  PRINT  "• 


448  PRINT  "" 

449  PRINT  "SCAN   VEL  VREF         0  QREF        MACH 
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YAU" 

450  PRINT  ■ 
DE8   ■ 

451  FOR  N-1  TO  Scan 

452  PRINT  USING  "40 ,3X ,MD . 3DE ,3X .MD . 3DE ,3X .MO . 3DE ,3X  ,M0 . 3DE  ,2X  ,HD . 3DE  ,2X  ,MD .  3D 
E-  iN,Calcl(N,7)  .CalcKN.14  >  .CalcKN.  15  >  .CalcKN  ,  13  >  .CalcKN  ,8  )  .CalcKN  .9  > 

453  NEXT  N 

454  PRINT  "■ 

455  PRINT  ••••• • 

45G    PRINT  "" 

457  PRINT  ■•••••••••• >»*•••• • .i.... . 

458  PRINT  *" 

459  PRINT  "SCAN    Pref-PU/Qref " 
4S0    FOR  N-1  TO  Scan 

4GI  PRINT  USING  "40  ,3X  ,MO. 3DE" |N ,Calc< N , I  8 ) 

4G2  NEXT  N 

463  PRINT  "■ 

4G4  PRINT  ■.....»••• .» ............... 


"465  PRINT  "" 

466  PRINT  "ENSEMBLE  AVERAGES' 

467  PRINT  •" 

468  PRINT  "PPAVG  PAAVG  TEMPAUG      XREFAVG        VREFAVG 
QREFAVG  ' 

4G9  PRINT  USING  "MO  .  3DE  ,5X  ,M3D.  2DE  ,5X  ,3D.  2D  ,5X  .MD  .  3DE  ,5X  ,MD.  3DE  ,3X  ,M0.  3DE"  iPpa 
vg  ,Paavg  ,  Tenpav  g  .Xrefavg ,  Vref avg .Orefavg 

470  OUTPUT  PPath4iCalcl(» >  (OUTPUT  STATEMENT  IS  SERIAL. 

471  DIM  Calcul 100.25)  ISEPARATE  CALC  ARRAY  FOR  REDUCED 

472  IOATA  FROM  UPPER  SURVEY  STATION. 

473  MAT  Calcu-  (0  I 

474  FOR  N-l  TO  100 

475  ENTER  PFa t hi  ,Nt Redda t < •  >  IENTER  STATEMENT  IS  RANDOM. 

476  ON  ENO  PPathl  GOTO  Tu>oprlnlcalc2 

477  Ptare-ReddaK  1,1) 

478  Fp=Reddat( 1 .3 ) 

479  Ps=Reddat< I .4 ) 

480  Ptp-ReddaK 1.10) 

481  Psp=Reddat< I  ,1  I  ) 

482  Plu«Reddat<  1.13) 

483  P2u=Reddat< 1,14) 

484  P3u=Reddat( I  ,15) 

485  P2u3u-<P2u+P3u>/2 

486  P4u=Reddat( 1.16) 

487  P5u=Reddat< 1.17) 

488  IBLANK=REDDAT( I .18) 

489  IBLANK'REDOATI 1,19) 

490  Fosltu=Reddet( I  ,21  ) 

491  Yawu-Reddatl I ,23) 

492  Temp-ReddaK 1  .24  ) 

493  Pa=Reddat< 1  .25) 

494  "CALCULATE  BETA  AND  GAMMA  COEFFICIENTS 

495  CALL  Bgcalc(Pa  ,P1u  ,P2u3u  ,P4u ,P5u .Betau ,6amnau ) 

496  'CALCULATE  Xvelu  AND  Phlu 

497  CALL  XphlcalctBetau  ,6annau  .Xvelu  ,Xu(  •  )  ,Phlu  ,Pu(  •  >) 

498  'CALCULATE  Xrefu 

499  CALL  XrefcalclPa.Pp  ,G  ,  Xrefu) 

500  I  CALCULATE  QREF  AND  VREF 

501  CALL  Qvrefcalc<Xref  ,Cp  .Temp  ,G.Pp .Pa.Oref  .Vref > 

502  (CALCULATE  VELOCITYu  AND  MACHu  t  AND  Ou 

503  CALL  VnqcalclXvelu  ,Cp  .Temp  ,6.Velu  .Machu  ,Plu  ,Pa  ,Qu > 

504  I  CALCULATE  THE  INTEGRAND  FOR  THE  AVDR  EXPRESSION 

505  CALL  KncalcfPa  ,Plu  ,Pp  .Xvelu  .Xrefu  ,G  .Yawu  ,Knu  ) 

506  I  CALCULATE  THE  COEFFICIENT  OF  PRESSURE  FOR  THE  UPPER  PROBE. 

507  l  THIS  TERM  UTLL  BE  MASS  AVERAGED  ANO  USFD  IN  THE  CALCULATION  OF  THE 
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508  !  LOSS  COEFFICIENT.  THE  Cpsu  TERM  IS  NOT  USED  IN  THE  LOSS  COEFFICIENT 

509  I  CALCULATION. 

510  CALL  Coefpress(Plu  ,Pp  .Pa.Xvelu  ,G,Cpsu  ,Cptu  )  _ 

511  !  CALCULATE  Pp-PI/Oref  FOR  PLOTS 

512  CALL  Prefqref ( Pp  .PI  ,Qref  ,Pqu  ) 

513  I  CALCULATE  THE  DOWNSTREAM  STATIC  PRESSURE 

514  CALL  StatlcpressfPlu  .Pa.Xvelu  ,G  ,Psu > 

516  Calcu(N,l  >-Posltu 

517  Calcu(N.2)-Betau 

518  Calcu(N,3 >-Gammau 

519  CaIcu(N,4)-Phlu 

520  Calcu<N.5>-Xvelu 

521  CalculN.G >-Xrefu 

522  Calcu(N.7)-Uelu 

523  Calcu(N,8)-Machu 

524  Calcu(N.9>-Yawu 

525  CaIcu(N.10)-Knu 
52G  Calcu(N,ll  )-Cptu 

527  CaIcu<N.I2>*Cpsu 

528  Calcu(N.13)-Ou 

529  Calcu(N.I4)=Pqu 

530  Calcu(N.I9)-Pa  »Calcu(N,15)  TO  Calcu(N.tB)  WILL  HAVE 

531  Calcu(N,20)-P9U  " ZEROS.  ARRAY  ELEMENT  ASSIGNMENT  IS 

532  'CONSISTENT  UITH  LOSS  PROGRAM  AND 

533  'ONE  PROBE  SURVEY. 
535  Scan-N 

53G  NEXT  N 

537  Tuoprlntcalc2:    OFF  ENO  SPathl 

538  PRINT  "•• • • 

539  PRINT  '■ 

540  PRINT  ■ • ••••" 

541  PRINT  "FILE    '  .Calcuflle* 

542  PRINT  ■ • " 

543  PRINT  -.•...#. 

544  PRINT  '" 

545  PRINT  'SCAN   U  PRB  BETAU         GAMMAU        PHIU          Xvelu  " 
54G  PRINT  "       POSIT" 

547  FOR  N-1  TO  Scan 

548  PRINT  USING  "4D ,2X ,4D. 20 ,3X ,MD . 3DE .3X ,MD. 3DE  ,3X  .MD . 3DE  ,3X  ,MD. 3DE" |N  ,Calcu( 
N,l  ),Calcu(N.2 ).Calcu(N.3).Calcu(N,4  >.Calcu(N.5) 

549  NEXT  N 

550  PRINT  ".......... *........*....... 


551  PRINT  "' 

552  PRINT  "SCAN    UELU         OU         Pref -Ptu/Qre f    MACHU         YAWU" 

553  PRINT  "  DEG" 

554  FOR  N=l  TO  Scan 

555  PRINT  USING  "40 ,3X ,MD. 3DE ,3X ,MD . 3DE ,3X ,MD . 3DE ,3X ,MD. 3DE ,3X ,MD. 3DE" |N  ,Ca leu 
(N,7),Calcu(N.13),Calcu<N,14).Calcu(N,B),Calcu(N.9) 

55G  NEXT  N 

557  PRINT  "........ 

558  PRINTER  IS  Scren 

559  OUTPUT  PPathSiCalcuC) 
5G0  ELSE 

5G1  MASS  STORAGE  IS  - /CLASSICK/REDDATA" 

5G2  PRINT  • • 

5G3  PRINT  '" 

5G4  PRINT  "ENTER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  THE  PROBE  " 

5G5  INPUT  CalcfileJ 

5GG  CREATE  BOAT  CalcfileJ, 100 

567  ASSIGN  PPath4  TO  Calcfllel 

5G8  I 
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5S9 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

590 

581 

582 

583 

584 

595 

586 

587 

588 

599 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

61  I 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 


I  •< 

l  •  i 

!• 

|« 

i  • 

l« 

l« 

l« 

l« 

l» 

I  • 
l» 
!• 
I« 
l« 
l» 
)• 

I I 

I  # 
I . 
i  • 

I I 
i  • 
|« 
1  • 
i  • 
I  • 


ONE  PROBE  < 

'SCANIVALVE  PORT  AND  SCANNER  CHANNEL  ASSIGNMENT- 


VARIABLE 


Ptare 
Peal 

Pp 

Ps 

PI 

P2 

P3 

P23 

P4 

P5 

Ptp 

Psp 


Posit 
Yaw 
Temp 
Fa 


VARIABLE 
REPRESENTS 

Pa-Pa 
Pcal-Ptare 

Pp  1  enurt-Pt  are 
Pwal 1 statlc-Ptare 
Pl-Ptaro 
P2-Ptare 
P3-Ptare 
(P2+P3)/2 
P4-Ptare 
P5-Ptare 
Ptotalprndt 1-Ptare 
Pstatprndt 1-Ptare 

BLANK 

BLANK 

BLANK 
PRB  POSIT 
PRB  YAW 

TOTAL  TEMP( PLENUM) 
ATMOSPHERIC  PRESS 


PORT/CHANNEL    DATA  ARRAY 


PORT 
PORT 
PORT 
PORT 
PORT 
PORT 
PORT 


PORT  8 
PORT  9 
PORT 
PORT  II 
PORT  12 
PORT  13 
FORT  14 
INPUT 
CHAN  24 
CHAN  10 
INPUT 
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Reddatl  1,1) 
Reddatl I  .2  ) 
Reddatl  1  .3) 
Reddatl I  .4  ) 
Reddatl 1  .5) 
Reddatl I  .6  ) 
Reddatl  I  ,7) 

Reddatl 1  ,8) 
Reddatl 1 .9) 
Reddatl 1,10) 
Reddatl 1 
Reddatl I 
Reddatl I 
Reddatl I 
Reddatl I 
Reddatl I 
Reddatl 1 
Reddatl I 


II  ) 

12) 
13) 
14  ) 

15) 
16  ) 
17) 
18) 


■DATA  REDUCTION- 


DIM  Calcl  100.25) 
MAT  Calc-  (0) 
Plnlt lal-0 

Tlnit lal"0 

Palnit lal»0 

FOR  N'l  TO  100 

ENTER  PPathl  .NiReddetl • > 

ON  END  PPalhl  GOTO  Prlntcalcl 

Ptare-Reddatl 1,1) 


UNTIALIZES  CONDITIONS  FOR  ENSEMBLE 
(CALCULATIONS  IN  SUBROUTINE  ENSEMBLE. 


I  ARRAY  ENTERED  RANDOMLY 


IPEASSIGNMENT  OF  ARRAY  ELEMENTS  TO 
ITO  IDENTIFIABLE  QUANTITIES  USED  IN 
•SUBROUTINE  CALCULATIONS. 

Pcal=Reddat<  I  ,2  ) 

Pp'Reddatl  I  .3) 

Fs'Reddatl I  .4  ) 

PI=Reddat(  I  .5) 

P2-Reddat< 1  .6  ) 

P3-Reddat< I  ,7) 

P23-(P2+P3)/2 

P4=Reddat(  I  ,8) 

P5  =  Reddat( 1  ,9) 

Ptp-Reddatl 1.10) 

Psp-Reddatl 1,11) 
IBLANK-Reddatl  1,12) 
IBLANK-Reddatl 1.13) 
IBLANK-Reddatl 1.14) 

Poslt'Reddatl 1.15) 

Yau=Reddat I  1,16) 

Temp=Reddat< 1  ,17) 

Pa  =  Reddat( 1  .19) 

ICALCULATE  BETA  AND  6AMMA  COEFFICIENTS 

CALL  BocalclPa.PI  ,P23  ,P4  ,PS  .Beta  .Ganna > 

ICALCULATE  THE  ENSEMBLE  REFERENCE  VALUES  OF  PPLENUM  .PLENUM  TEMP  AND  PA. 
CALL  EnsenbleIPp  ,Plnl t lal  ,Pa  .Palnl t lal ,Tenp  ,Tlnl t lal .Ppavg ,Paavg .Tempavg ,N> 

ICALCULATE  Xvel  AND  Phi 

CALL  Xphl calcl Beta  .Gamne.Xvel  ,X<«),Phi,P<»>> 
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635  ICALCULATE  Xref 

636  CALL  XrefcalcfPa.Pp.G.Xref > 

637  "CALCULATE  QREF  AND  VREF 

638  CALL  Qvrefcalc(Xref  ,Cp  ,Temp  ,G  ,Pp  .Pa.Qref  ,Ur«M 

639  ICALCULATE  VELOCITY  AND  MACH  t  AND  0 

640  CALL  Vmqcalc(Xvel  ,Cp  .Temp  ,G  ,Vel  .Mach.P1  ,Pe  .0  ) 

641  I  CALCULATE  THE  INTEGRAND  FOR  THE  AVDR  EXPRESSION 

642  CALL  Kncalc(Pa  .PI  ,Pp  .Xvel  ,Xref  ,G  .Yau.Kn) 

643  1  CALCULATE  THE  COEFFICIENT  OF  PRESSURE  TERMS  TO  BE  MASS  AVERAGEO. 

644  I  THESE  TERMS  ARE  USEO  IN  THE  CALCULATION  OF  THE  LOSS  COEFFICIENT. 

645  CALL  Coefpres9(P1  .Pp.Pa.Xvel  .G.Cpa  ,Cpt  ) 

646  ICALCULATE  THE   QUANTITIES  TO  BE  MASS  AVERAGED.  MULTIPLY  THESE  VALUES 

647  IBY  Kn  TO  GET  THE  INTEGRAND  REQUIRED  TO  CALCULATE  THE  MASS  AVERAGED  CP ' S 

648  CALL  CpintegrandfPp.PI  .Pa.G.Xvel  .A.B.Kn) 

649  ICALCLULATE  Pp-PI/Oref  FOR  PLOTS 

650  CALL  PrefqreHPp.P1  .Qref  ,Pq) 

651  !  CALCULATE  STATIC  PRESSURE 

652  CALL  StattcpressfPI  .Pa.Xvel  .G.Ps) 

653  10EFINE  AN  ARRAY  TO  STORE  CALCULATED  VALUES 

654  Calc(N,l  )-Poslt 

655  Celc<N,2)-Bete 

656  Calc(N,3 >-Gamma 

657  Calc(N,4  )=Phl 

658  Calc(N.5)-Xvel 

659  Calc(N,6  )  =  Xref 

660  CaIc(N,7)-Vel 

661  Calc<N.8>=Mach 

662  Calc(N.9)-Yaw 

663  Calc<N,10)-Kn 
6G4  CalctN.1 1>-Cpt 

665  Calc(N,12 >=Cps 

666  Calc(N.I3)-Qref 
657  Calc<N.14)-Vref 

668  Calc(N,IS)=Q 

669  Calc(N.I6>"A 

670  Calc(N,t7)=B 

671  CaIc(N,18 >-Pq 

672  Calc(N.19)=Pa 

673  Calc(N,20)=Ps 

674  Knaray(N)-Calc(N.10>  IUANT  TO  STORE  THE  Kn  VALUE  IN  AN 

675  1ARRAY  FOR  MASS  AVERAGING  CALCULATIONS 

676  Prbpos(N)»Calc<N,1  )  I""  '" 

677  Aaray(N)=Calc(N.I6  )  I""  "" 
679  Baray(N)-Calc(N.I7)  I"  "" 

679  Scan=N 

680  NEXT  N 

681  Prlntcalcl:    OFF  END  PPathl 

682  ICALCULATE  ENSEMBLE  AVERAGE  OF  XREF 

683  CALL  Xref ensemblef Paavg .Ppavg ,6 , Xref avg  ) 

684  ICALCULATE  ENSEMBLE  AVERAGE  OF  VREF 

685  CALL  Vref ensemble* Xref avg ,Cp .Tempavg .Vref avg  ) 

686  'CALCULATE  ENSEMBLE  AVERAGE  OF  QREF 

687  CALL  Qrefensenble(Paavg.Ppavg,6 ,Xref avg , Qref avg ) 

688  PRINT  ••«• ••••im.hhiim. • ,.• - 

689  PRINT  ■■ 

690  PRINT  "ALIGN  PAPER  IN  THE  PRINTER.  WHEN  READY  FOR  A  HARDCOPY  OF  THE  " 

691  PRINT  '" 

692  PRINT    "CALCULATED   DATA.   PRESS    "REDUCED   DATA-"    .* 

693  PRINT    "• 

694  PRINT  '•••!••••••  •!•• ............ 

695  ON  KEY  4  LABEL  "REDUCED  DATA"  GOTO  Prntdatal 

696  Spln3:    GOTO  Spln3 

697  Prntdatal:   PRINTER  IS  Prnter 

699  PRINT  "• ■ 

699  PRINT    "FILE        ".Calcflle* 

70in  PRINT    "....».....•.»••#••.........................■ 
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701  PRINT 

702  PRINT 


703  PRINT  '" 

704  PRINT  "SCAN    PRB        BETA  GAMMA         PHI  Xvel 
Xref " 

705  PRINT  ■        POSIT" 

706  FOR  N-1  TO  Scon 

707  PRINT  USING  "40  ,3X  ,40.  2D  .3X  ,MD.  30E  ,3X  .MO.  3DE  ,3X  ,MD.  3DE  ,3X  ,MD.  30E  ,3X  ,MD.  3DE 
• iN.CalctN.1  )  ,Calc(N,2  )  ,Calc(N ,3 > ,Calc< N  ,4  )  ,Calc( N  ,5  )  ,Calc( N ,G ) 

708  NEXT  N 

709  PRINT  "" 

710  PRINT  ' • ••••••••• .. 


711  PRINT  '" 

712  PRINT  "SCAN    Uel  Uref  0  Oref         MACH 
YAU" 

713  PRINT  " 
OEG   ' 

714  FOR  N-1  TO  Scan 

715  PRINT  USING  "40  ,3X  ,MD  .  30E  ,3X  ,MD.  3DE  ,3X  ,M0  .  30E  ,3X  ,M0.  3DE  ,2X  .MO  .  30E  .2X  ,MD  .  3D 
E"iN.Calc(N,7),Calc(N.I4).Calc(N.15>.Calc(N,l3).Calc(N,8),Calc(N.g) 

71G    NEXT  N 
717    PRINT  ■" 


719    PRINT 


719  FRINT  •' 

720  PRINT  'SCAN    Pref -P t /Ore f  " 

721  FOR  N-1  TO  Scan 

722  PRINT  USING  "4D  ,3X  .MD.3DE" iN  .Calc ( N  .  1 8  ) 

723  NEXT  N 

724  PRINT  "" 

725  PRINT  "•..•..••••••••...•••••••••••••..< 


72G  PRINT  ■■ 

727  PRINT  ■  ENSEMBLE  AVERAGES* 

728  PRINT  "" 

729  PRINT  'PPAVG  PAAUG           TEMPAUG      XREFAUG        VREFAUG 
QREFAUG" 

730  PRINT  USING  "MD . 3DE  ,5X  ,M3D. 20E  ,5X  ,3D. 20  ,5X  ,MD. 3DE  ,5X  ,MD. 3DE  ,3X  ,MD . 30E " iPpa 
vg.Paavg.Tenpavg.Xrefevg.Urefavg.Qrefavg 

731  PRINTER  IS  Scren 

732  OUTPUT  PPath4iCalc< •  )  ISERIAL  OUTPUT  STATEMENT. 

733  ENO  IF 

734  PRINT  ' •• •• • - 

735  PRINT  ■■ 

73G  PRINT  "TO  CALCULATE  THE  CP ' S  FOR  THE  BLADE  DATA.  PRESS  ■"BLAOE  CP'S""" 

737  PRINT  '  PRESS  -'60  ON""  TO  CONTINUE." 

738  PRINT  "• 

739  PRINT  " ••••• • 

740  ON  KEY  I  LABEL  "BLADE    CP'S"  GOTO  Calculatecp 
74  1  ON  KEY  4  LABEL  "GO  ON"  60T0  Loadoptlon2 

742  Spln4:    60T0  Spln4 

743  Calculatecp:    MASS  STORAGE  IS  " /CLASSICK/REDDATA" 

744  PRINT  "" 

745  PRINT  "•• ............... 

74G  PRINT  "" 

747  PRINT  "ENTER  THE  FILE  NAME  OF  THE  BLADE  DATA  SCALEO  IN  ENGINEERING  UNITS" 

748  INPUT  Sclbladflle* 

74  9  PRINT  " •••• " 

750  ASSIGN  PPath5  TO  Sclbladflle* 

751  PRINT  •" 

752  PRINT  "ENTER  THE  FILE  NAME  TO  STORE  THE  MASS  AVERAGEO  CP'S  CALCULATED" 

753  PRINT  "FROM  THE  BLADE  DATA." 

754  INPUT  Bladcalc* 


120 


755  CREATE  BOAT  Bladca lc$ , 1 00 

756  ASSIGN  PPathG  TO  Bladcale* 

757  DIM  Prntdata< 1  .48)  IOIMENSION  STATHENTS  FOR  BLADE  ARRAYS 

758  (ARE  HERE  SO  ARRAY  SPACE  IS  ONLY  ASSIGNEO 

759  'IF  BLADE  OPTION  IS  SELECTED. 
7G0  DIM  Cpnassavg( 48  ) 

7GI  MAT  Cpnassavg-  (0) 

7G2  MAT  Prntdata-  <0> 

7G3  PRINT  " ••• •••.••. •  " 

7G4  PRINT  ■" 

765  PRINT  "ENTER  THE  LIMITS  OF  INTEGRATION  I.e.,  THE  LOUEST  TO  THE  " 

76G  PRINT  "HIGHEST  SCAN  NUMBER  DESIRED." 

7G7  PRINT  " 

7G8  PRINT  ■ • • 

769  PRINT  '" 

770  PRINT  * • • •  •  •  •  • ■ 

77)  PRINT  "" 

772  PRINT  "ENTER  THE  LOW  SCAN" 

773  INPUT  Loupolnt 

774  PRINT  " 

775  PRINT  " 

776  PRINT  "ENTER  THE  HIGH  SCAN- 

777  INPUT  Hlpolnt 

778  LOADSUB  ALL  FROM  " /CLASSICK/ROUT INES/LOSSCALC" 

779  I  INTEGRATE  A 

780  CALL  Dat  lnt  (  Lourpolnt  .Hlpolnt  ,Aaray(  •)  .Prbposf  •)  ,Alnt(j  ) 
78!  "INTEGRATE  B 

782  CALL  Dat  lnULowpolnt  , Hlpolnt  ,8aray<  •  )  .Prbposl  •  )  .Blnto  ) 

783  I  INTEGRATE  Kn 

784  CALL  Dat  lnHLoupolnt  .Hlpolnt  ,Knaray(  •)  ,Prbpoa<  •)  .Knlntg  ) 

785  At=Alntg/Knlntg 

786  BI=Blntg/Knlntg 

787  ENTER  PPa t h5 iPrnt dataf • > 

788  Pp'Prntdataf I ,3) 

789  FOR  N-Flrstbtadeprt  TO  Lastb ladeprt  IOBTAINED  FROM  PORT  ASSIGNMENT  SHEET 

790  Plocal-Prntdata( I ,N ) 

791  CALL    Cpcalc(AI  ,Bt  .Pp.Plocal  ,C  ) 

792  Cpnassavg(N)»C 

793  NEXT  N 

794  PRINT  " ••••• • ..." 

795  PRINT  "■ 

796  PRINT  "ALIGN  PAPER  IN  PRINTER  AND  PRESS  ""BLADE  DATA""  FOR  HARD  COPY" 

797  PRINT  "  OF  BLADE  MASS  AVERAGED  COEFFICIENTS  OF  PRESSURE." 

798  PRINT  " 

799  PRINT  " • " 

800  ON  KEY  I  LABEL  "BLADE    DATA"  GOTO  Prntbladedat a 

801  SplnS:    GOTO  Spln5 

602  Prntbladedata:   PRINTER  IS  Prnter 

803  PRINT  " ............................... 

804  PRINT  "BLADE  CP  FILE   ".Bladcalc* 

805  PRINT  " • •••• 

806  PRINT  ■" 

807  PRINT  "SCANIVALUE       MASS  AVERAGED  COEFFICIENT" 

808  PRINT  "PORT  OF  PRESSURE 

809  FOR  N-Flrstbladeprt  TO  Lestbladeprt 

810  PRINT  USING  "2D . I SX ,MD. 3DE" |N .Cpnassavg* N  ) 
81  I  NEXT  N 

8)2  OUTPUT  PPath6iCpmessevg(»  )        ISERIAL  OUTPUT  STATEMENT 

813  Loadoptlon2:   PRINTER  IS  Scren 

814  PRINT  •••« .#............ ............ 

6)5  PRINT  "" 

816  PRINT  "TO  LOAD  PROGRAM  THAT  CALCULATES  THE  AVDR  AND  LOSS  COEFFICIENT," 

817  PRINT  "" 

818  PRINT  "PRESS  ""LOSS"".   PRESS  "GO  ON"  TO  TERMINATE  THE  PROGRAM." 

819  PRINT  " 
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820  PRINT 

821  ON  KEY 

822  ON  KEY 

823  SplnB: 

824  Loadup2= 
825 

826  Fin:   PRINT 

827  PRINT  ■••• 
PRINT  •" 
PRINT  " 
PRINT  ■' 
PRINT  "••• 
END 


I  LABEL  "LOSS"  GOTO  Loadup2 

4  LABEL  'SO  ON"  GOTO  Fin 

GOTO  SpinG 

MASS  STORAGE  IS  •/CLASSICK/PROGS" 

LOAD  'LOSS-  ,10 


828 
829 
830 
831 
832 


END  OF  PROGRAM 
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B7.3   Reduction  Program  LOSS 


10  (PROGRAM  LOSS 

20  (THIS  FROGRAM  USES  VALUES  FROM  THE  CALC  ARRAYS  GENERATED  BY  REDUCING 

30  ISCALED  DATA  IN  PROGRAM  CALC.  SUBROUTINES  INTEGRATE  THESE  VALUES  AND  A 

50  ISTATIC  FRESSURE  RISE  COEFFICIENT  ,AVDR  &  LOSS  COEFFICIENT  IS  CALCULATED. 

51  IMUCH  OF  THE  COOING  UAS  PREVIOUSLY  COMMENTED  ON  IN  PROGRAM  ACQUIRE  AND 

52  (PROGRAM  CALC. 
G0  OPTION  BASE  I 

70  DIM  CalcH  100.25)  INOTE  THAT  u  AND  1  DESIGNATORS  DISTINGUISH 

71  (THOSE  VALUES  FROM  UPPER  SURVEY  AND  LOWER 

72  ISURVEY  STATIONS  RESPECTIVELY. 
80  DIM  Caleul 100.25) 

90  DIM  FoslH  (00) 

(00  DIM  PosltuM00> 

(10  DIM  KMI00)  (SEE    TABLE    I    OF   CLASSICK    THESIS   Kn-K. 

(20  OIH  Knu( 100) 

121  OIH  Cp«U00>  ITHESE  VALUES  PREVIOUSLY  DEFINED  IN  'CALC- 

122  DIM  Cptu( 100) 

123  DIM  Cpe< 100) 

124  DIM  Vlieaj  IAN  INTERMEDIATE  OUANTITV  IN  THE  STATIC 

125  IFRESSURE  RISE  COEFFICIENT  CALCULATION. 
(29  DIM  Z< 100)  r 

131  DIM  Cptxkn(t00)  ICOIIBINED  VALUES  TO  MAKE  THE  INTEGRATIONS 

132  DIM  Cptuxknu< 100)  IHORE  EXFLICIT  TO  THE  FROGRAMMER. 

133  DIM  Cpsxknf 100) 

134  DIM  ixkn( 100) 
(35  DIM  Zxknu< 100) 
(3G  MAT  Calcl-  (0) 
(37  MAT  Calcu-  (0) 
(38  MAT  Posit-  (0) 
(39  MAT  Fosltu-  (0) 
(40  MAT  Kn-  (0) 

141  MAT  Knu-  (0) 

142  MAT  Cpt-  (0) 
(43  MAT  Cptu-  (0) 

144  MAT  Cps-  (0) 

145  MAT  Cptxkn-  (0) 

1 46  MAT  Cptuxknu-  <0) 

147  MAT  Cpsxkn-  (0) 
(48  MAT  Yxkn-  (0) 
149  MAT  Zxknu-  <0> 

(50  LOADSUB  ALL  FROM  VCLASSICK/ROUT INES/LOSSCALC" 

(51  MASS  STORAGE  IS  ' /CLASS1CK/REDOATA" 

(52  PRINT  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  CALCULATED  DATA  FROM  THE' 

(53  PRINT  "LOWER  PROBE" 

(54  PRINT  • • • • • • ' 

155  INPUT  CelclflleJ 

156  ASSIGN  BPathl  TO  Calclflle* 

157  ENIER  VPathdCalcHO 

158  FOR  N-1  TO  100 

159  PoBlt(N)-Calcl(N.1 > 

212  Kn(N>-Calcl<N.I0) 

213  Cpt(N)-CalcI(N.I  I  > 

214  Cp8(N)-Calcl(N,(2> 

215  Pal-Calcl(N,19> 
2IG  Psl-Celcl(N,20) 

217  01-Calc!(N,15) 

218  IF  Ql-0  THEN  Sklpy  IPREVENTS  A  DIVISION  BY  ZERO  IF  THE 

219  IARRAY  IS  NOT  ENTIRELY  FILLED  WITH 

220  INONZERO  VALUES  I.e..  TOTAL  DATA  POINTS 
222  Y<N)-(Pal-Psl  )/01  (TAKEN  DID  NOT  EOUAL  100. 

224  Cptxkn(N)-Cpt(N)«Kn(N) 

225  Cpsxkn(N)-Cps(N)«Kn(N) 
225  Yxkn(N)-Y(N)tKn(N) 
227  NEXT  N 
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231  SUpyi   PRINT  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  CALCULATED  DATA  FRO 
M  THE" 

232  PRINT  "UPPER  PROBE" 

2  33        PRINT    ■#..■••# ..t.t.t. #..•••#. 11111111.iMMu11.ini 

234  INPUT  CalcuflleJ 

235  ASSIGN  0Path2  TO  Calcuflle* 

236  ENTER  »Pelh2 iCalcu< • > 

237  FOR  N-1  TO  100 

238  Po9ltu(N)-Calcu<N.1  ) 

239  Knu<N)-Calcu(N.t0> 

240  Cptu(N)-Celeu(N.I I  ) 

241  Pau-Calcu(N.I9) 

242  PBu-Celcu(N,20> 

243  0u-Calcu(N.15) 

244  IF  Ou-0  THEN  Skip*  ISAME  REASON  FOR  STRUCTURE  HERE 

245  Z(N)-(PBU-Pau)/Ou  IAS  FOR  Ql . 

246  Cptuxknu(N)-Cptu<N)«Knu(N) 

247  Zxknu(N>-Z(N>oKnu<N> 

248  NEXT  N 

249  Skip*:  PRINT  "' 

250  PRINT  "ENTER  THE  LIMITS  OF  INTEGRATION  FOR  THE  LOUER  PROBE  SURVEY" 

251  PRINT  "• 

252  PRINT    " mmihiiii ■■••■■»•« 

253  INPUT    "ENTER    THE   FIRST    POINT "  .Loupolnt 

254  INPUT    "ENTER    THE    LAST    POINT" .Hlpolnt 

255  I    CALL    THE    INTEGRATION  ROUTINE 

256  CALL    Dat  InHLoupolnt  .Hlpolnt  ,Kn(  •)  ,Po9l  t(  •)  .Denominator  ) 

257  CALL   DallnHLowpolnt  .Hlpolnt  .Cptxknt  •)  .Posl  t(  •)  .Intega  ) 

258  CALL    Dat  InHLoupolnt  .Hlpolnt  .Cpaxkn*  •)  .Posl  t(  •)  .Integc  ) 

259  CALL    OatlnKLowpolnt  .Hlpolnt  ,Yxkn<  •>  ,Po9lH  •>  .Integy  ) 

263  FRINT    "" 

264  PRINT  "ENTER  THE  LIMITS  OF  INTEGRATION  FOR  THE  UPPER  PROBE  SURVEY" 

265  PRINT  "" 

266  TRINT  " • • #.• 

267  INPUT  "ENTER  THE  FIRST  POINT " .Loupol nl 

268  INPUT  "ENTER  THE  LAST  POINT" .Hlpol nt 

269  CALL  Dat  InHLoupolnt  .Hlpolnt  .Knu<  •)  ,P09ltu(  •>  .Numerator  ) 

270  CALL  Dat InHLoupolnt  .Hlpolnt .Cptuxknuf •) .Posl tu( •) .Integb ) 

271  CALL  Dat  InHLoupolnt  .Hlpolnt  ,Zxknu<  •)  ,Po9ltu(  •)  .Integz  ) 

272  Cp2-(Integ7/DenoHlnator>M Inlegy/Denonl nat or  ) 

273  Avdr«Numera t or/Oenonlnat or 

274  PRINT  "STATIC  PRESSURE  RISE  COEFFICIENT" 

275  PRINT  USING  "MD.3DE"iCp2 

276  PRINT  "" 

277  FRINT  "AVDR" 

278  FRINT  USING  "MD.3DE" I Avdr 

279  PRINT  ■" 

280  U-(Intecja-<  I /Avdr  )•(  Integb  >)/<  Intega- Integc  ) 

281  PRINT  "LOSS  COEFFICIENT" 

282  PRINT  US1N6  "MD.3DE"|W 

2  83  PRINT  " ••• »»tt •■*•••••  t (it • 

284  PRINT  " 

285  PRINT  "  ENO  OF  PROGRAM" 

286  PRINT  "" 

287  PRINT    "•• •#••••  kiiiiimmmii » >«ii r 

7RR  ENO  ' 
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B7.4   Subprogram  SUBACQUIRE 


I  IFILE  SUBACQU1RE 

10  I  THIS  FILE  CONTAINS  THE  SUBPROGRAMS  FOR  POSITIONING  THE  SCANIVALVE 

28  IPORTS  AND  REAOING  THE  OVM. 

720  SUB  ScnvportposlUScnv.Dp.Senhrisvc  .Scnstpsvc)    ITHE  STRUCTURE  OF  THIS 

721  (SUBPROGRAM  IS  SIMILAR  TO  PREVIOUS 

722  (ACQUISITION  PROGRAMS  WRITTEN  AT  THE 

723  ITPL.  SEE  GEOPFARTH  THESIS. 

725  OPTION  BASE  I 

726  COM  /Posltvrbls/  Svc, Sen 

727  Poslt:OUTPUT  Svc  USIN6  -I.K'tSenv 
72B  Z-SPOLL(Sve) 

729  U-BINAND(Z,I5> 

730  V-SHIFT<7.4) 

731  T-BINAND<V,7) 

732  P-10«T+U  IP  IS  THE  PRESENT  PORT  THAT  THE 

733  1SCANIVALVE  IS  ON. 

735  CLEAR  Svc 

736  IF  P-Dp  THEN  Retrn 

737  IF  P>Dp  THEN 

738  OUTPUT  Sen  USING  '11' iScnhnsvc   IHOME  THE  SCANIVALVE 
73S  CLEAR  Sen 

740  WAIT  4  I  ALLOW  4  SECONDS  FOR  THE  HOME  TO 

741  ICOMPLETE. 

743  GOTO  Posit 

744  ELSE 

745  OUTPUT  Sen  USING  *  11' iScnslpevc  ISTEP  THE  SCANIVALVE 

746  CLEAR  Sen 

747  WAIT  .1  IWAIT  1/10  SEC  BETWEEN  STEPS 

748  GOTO  Posit 

749  END  IF 

750  Retrn:  SUBENO 

751  SUB  ReaddvMOp .Chanlaslgn) 

752  OPTION  BASE  1 

753  COM  /Positvrbls/  Svc  .Sen 

754  COM  /Readvrbls/  Scan  ,Dvn  ,Scanvb( 1  ,4B  )  .Tenpchnrd  .Yeuchnrd  .Scnyawchn  ,Scnt e 
npchn  .Scnrdsvcb ,5canva(  I  ,48  )  .Scnrdsvea  .Noofprbs  ,  Yawchnrdu  ,  Scnr dsvc 

755  COM  /Readvrbls/  Yeucbnrdl  .Scnyawchnu  .Scnyawchnl  .Maxdl  f 

756  OUTPUT  Sen  USING  '11' iChanlaslgn    ICHANLASIGN  TAKES  ON  THE  VALUE 

757  IASSIGNED  TO  IT  BY  THE  CALLING 

758  STATEMENT  IN  THE  MAIN  PROGRAM. 

760  OUTPUT  DvntFlr7*3a0h0t3  ISTANOARD  SETTING  FOR  THE  DVM. 

761  (SETS  THE  FUNCTIONS  ON  THE  PANEL. 

763  Sanple:   DIM  A( 5  ) 

764  MAT  A-  (0> 

765  FOR  1-1  TO  5  I  TAKE  5  READINGS  AND  STORE  IN  THE 

766  I -A"  ARRAY 

768  TRIGGER  Ovn 

769  ENTER  DvmiAU  ) 

770  Av0-SUM(A)/I  IAUERAGE  THE  5  READINGS 

771  Dev-A<!)-Avg 

772  IF  Oev>Mexdlf  THEN  IERROR  TRAP  FOR  SPURIOUS  DVM  READINGS 

773  PRINT  'SAMPLE  EXCEEDED  MAXIMUN  DEVIATION  ALLOWEO-SAMPLE  RETAKEN" 

774  GOTO  Sanple 

775  END  IF 

776  WAIT  .3 

777  NEXT  I 

778  IF  Noofprbs-1  THEN  Readone 

779  IF  Chanlaslgn-Scnrdsvcb  THEN 

780  ScanvM I  ,Dp  >-SUM<  A  >/S 

781  ELSE 

782  IF  Chanlaslgn-Scnyawchnl  THEN 

783  Yawchnrdl-SUM(A)/5 

784  ELSE 

785  IF    Chanleslgn-Senyawchnu    THEN 

786  Yawchnrdu-SUM<A)/5 
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767  ELSE 

7BS  GOTO  Tenpread 

789  ENO  IF 

790  ENO  IF 

791  ENO  IF 

792  Readone:IF  Chanlaslgn-Scnrdivc  THEN 

793  Scanvbd  .Dp  >-SUM<  n  >/5 

794  ELSE 

795  IF  Chanlaslon-Scnyawchn  THEN 

796  Yawehnrd-5Uri<n>/5 

797  ELSE 

799  Tenpread:  Tempchnrd-SUM< n  )/5 

799  ENO  IF 

800  ENO  IF 

801  IF  Chanlaslgn-Scnrdsvea  THEN  Scanvaf  I  .Dp  )-SUM( A >/5 

802  Retrnt  CLEAR  Sen 

803  SUBEND 
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B7.5   Subprogram   SUBCALC 


1      IFILE  SUPCALC 

10     (THIS  FILE  CONTAINS  ALL  THE  CALCULATION  SUBROUTINES  CALLED  BY  THE 

20     IDATA  REDUCTION  PROGRAM  CALC. 

798  SUB  BpcalclPa.  PI  .P23.P4  .PS. Beta. Gonna) 

799  Beta-(P1-P23)/<P1+Pa  ) 
B00  6anna-(P4-PS)/(PI-P23> 
801  SUBENO 

602  SUB  Xphicelc(Bata.6anna.Xvel .X< • >,Phi ,P< • )> 

803  OPTION  BASE  I 

804  DIM  E<6> 

805  DIM  P<6) 
80S  MAT  E-  <0> 
B07  MAT  E-  (0) 

808  FOR  J-l  TO  G 

809  E< J>-X(l  .J)*X(2.J)»6anna  +  X(3.J)«Ganna*2  +  X(4,J)»Ganna-3  +  X(5.J)'6anna'4  +  X(G. 
J  )»6enna"5 

810  F< J  )-P( I  ,J  )+P<2.J)»6anna*P(3.J  >»GannaA2*P< 4 . J  >»Ganna*3  +  P< 5  .  J  )«Ganna"4+P< 6  . 
J  >»6anna"5 

811  NEXT  J 

812  Xvel-E< I  )4E(2)»BetatE(3)«Beta*2  +  E(4  ).Be«e-34E(5)«Bela-44E(G  )>Beta-5 

813  Phl-F( 1  )+Ft2)«B8ta  +  F(3)»Beta*2+F(4>»Bota-3+F(5)'Beta"4+F(G)'Beta*5 

814  SUBEND 

815  SUB  UnqcalctXvel .Cp.Tenp.G.Vel  .Mach.PI  .Pa.Q) 
BIG  Vel-Xvsl«(2»Cp«778»32. 174'TenpP  .5 

817  Mach-(((Xve!*2)/( 1 -Xvel"  2  1  )•( 2/(G- I  1))".5 

818  Q-(PMPa  )«(G/(G-I  ))«XveI*2»((  1-XvoI"2  >*(  1/(G-1  )  )  ) 

819  SUBEND 

820  SUB  Xrefeelc(Pa,Fp,6,Xref > 

821  Xref-(l-(Pa/(Pp4Pa))*((G-1  )/G))".5 

822  SUBEND 

B23  SUB  Kncale(Pa,P1 .Pp.Xvel .Xref .G.Yau.Kn) 

824  Kn-((PI+Pa)/(Pp4Pa))MXvel/Xref  >•(<( l-Xvel"2)/( l-Xref*2>>*< 1/(6-1  )  )) 
•COS(Yaw) 

825  SUBEND 

BZG  SUB  Coefpress(PI  .Pp.Pa.Xval.G.Cps.Cpt > 

827  Cpt-(PI+Pa)/<Pp*Pa> 

828  Cris-((PI+Pa>»({  t-Xvel  "2  )*<6/<G-t  ))))/<  Pp+Pa) 
B29  SUBEND 

85G  SUB  EnseribletPp  ,P  Initial  , Pa  , Pa  Initial .Tenp .T Initial .Ppavg  .PaavQ  .Tenpavg  ,N) 

857  Ppe=Pp+Pln!tlal 

858  Ppevg-Ppe/N 

859  Ptnlllal-Ppe 

860  Te-Tenp+Tlnltlal 

861  TenpavQ-Te/N 
BG2  Tlnlllal-Te 

8G3  P*e-Pa*Painitlal 

BG4  Paavg-Pae/N 

865  Palnltlal-Pao 

866  SUBEND 
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8G7  SUP  Xref  cnser>ble(Paavg  ,Ppavg  ,G  , Xref  avg  ) 

6SB  Xrefavg-( 1-((Paavg)/(Ppavg»Paavg>r((G-l  )/6)l'.5 

869  SUBENO 

870  SUB  Vref ensenble( Xre f avg ,Cp .Tenpavg .Vref avg ) 

871  Urefevo-XrBfavQ«(2»Cp»Tenpavo»778«32. 174 )' .5 

872  SUBENO 

873  SUB  Qref ensenbl e( Paavg  ,Ppavg ,6 ,Xre f avg ,Oref avg ) 

874  Qrefavg-(Ppavg*Peavg)»(6/(6-l  I  >«Xrefavg*2«( I -Xref avg*2 >"< I /<  G- I  )> 

875  SUBENO 

87G  SUB   Ovrefcale(Xref .Cp.Tenp, 6. Pp. Pa, Oref.Vref) 

877  Vref-XrefM2«Cp'778'32.  I  74»Tertp  ) *  .5 

878  0ref-(Pa+Pp)«(6/(G-l  )  )•( Xraf "2  )•( ( I -Xref '2  )"< 1/(6-1  ))> 

879  SUBEND 

888  SUB  CplntegrancKPp.PI  ,Pa,6,Xvel  .A.B.Kn) 

881  M-Pp/((PHFa)»(6/(6-l  >  1'Xvel"  2M  (  I -Xvel"  2  )*  <  I /<  6- I  >  >  > ) 

882  Nl -( Pa/( P I ♦  PaH-M I -Xvel *2 >*( 6/(6-1  >>> 
803  N2-<6/<8-l))«Xvel*2«<< l-Xvel'2>*(  l/IG-l >>) 
8B4  N-NI/N2 

885  A-M'Kn 

BBG  B-N»Kn 

8B7  SUBEND 

B89  SUB   Cpcelc(AI  ,BI  .Pp.Plocal  ,C> 

889  C-UPlocal/PpMAI  )*BI 
B90  SUBENO 

900  SUB    S«etJcpress(P1  .Fa.Xvel  .G.Ps) 

910  P*-(P I +Pa>"<  »-Xvel*2>"( 6/(6-1  )) 

920  SUBENO 

930  SUB    PrefqreMPp.PI  .Oref  ,Pq  > 

940  Pq-(Fp-PI  )/Oref 

950  SUBENO 
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B7 . 6      Subprogram   LOSSCALC 


I  IFILE  LOSSCALC 

10  (THIS  SUBPROGRAM  IS  AN  ADAPTATION  OF  SHREEVE'S  INTEGRATION  ROUTINE 

20  (GIVEN  IN  APPENDIX  B  OF  NPS-57SF7307I A 

272  SUB  DatinHLowpolnt  .Hlpolnt  ,D(  •  ),Poslt(»  )  .Dallnt  ) 

277  OPTION  BASE  I 

287  DIM  A( 100) 

297  DIM  B< 100) 

307  DIM  C< 100) 

317  DIM  Dint< 100) 

321  MAT  A-  (0) 

322  MAT  B-  <0> 

323  MAT  C-  <0> 

324  MAT  Dint-  (0) 

325  N-Hipoint-1 
32G  Nnt-N-I 

327  FOR  I-Loupolnt+I  TO  N 

337  A(  I )-(  1/(Poslt< I+l  >-Po9lt< I- I  )))•((  (D(  1  +  1  )-D( I  )  )/( Posi t  (  I  +  1  )-Pos 1 1 ( I )  )  )-( ( 

D(  I  )-D( I- I  ))/(Poslt( I  )-Poslt( I- I  ) ) ) ) 

347  B(  I  )-((D< I  )-D( 1-1  ))/(Poslt( I  )-Poslt( I- I  )))-(( Pos  1 1 ( I  )+Po9it( I-l  )  >»A(  I  )  ) 

357  C(I  >-D< I  )-(A<I  )»Poslt( I  )'2)-(B(I  )«Posit( I  ) > 

360  NEXT  I 

3GI  Dallnt-0 

3G2  FOR  I=Lowpolnt+t  TO  Nnl 

3G3  Dlnt(  I  )■=(  A(  I  )  +  A(I  +  1  ))•(  Posit  <  1  +  1  )"3-Poslt(  I  K3  >/6  +  <  B<  I  >  +  B<  1  + 1  >  >•<  Posi  t  (  I  +  I 

)'2-Poslt(  I  )A2)/4  +  (C(  I  )  +  C(  I  +  l  ))MPoslt(  1  +  1  )-Po9lt(  I  ))/2 

3G4  Datlnt-Datlnt+OlntU  ) 

3G7  NEXT  I 

377  DlnlU  >  =  A<2  >•  ( Pos  1 1 ( 2 >  "3-Po9l t < 1  )"3  )/3  +  B( 2  )•  ( Pos 1 1 ( 2  )  "2-Pos 1 1 ( 1  )'2)/2  +  C(2) 

MPosit<2  )-Poslt(  1  )) 

387  Dint (N)  =  A(N)» (Pos lt(N+l  >*3-Pos I t < N  r 3 >/3+B( N >• < Po9i t ( N+ I  )"2-Pos 1 1 ( N  >*2  )/2  + 

C(N)»(Poslt(N+1  )-Poslt(N)  ) 

397  Oat int-Datlnt+Dlnt< 1  )  +  Dlnt(N) 

407  SUBEND 
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B7.7   Plot  Program  PREFPOREF 


1  IPROGRAM  PREFPOREF 

2  IPR06RAM  PLOTS  PREF-PT/QREF  VS  PROBE  POSITION 
4  MASS  STORAGE  IS  "/CLASSICK/REDDATA" 

7  INPUT  "ENTER  THE  NAME  OF  THE  REOUCEO  DATA  FILE"  .CalcdatJ 

10  ASSIGN  BFethl  TO  Calcdat» 

I  1  OPTION  BASE  I 

12  DIM  Calc<100,25> 

17  MAT  Calc-  <0> 

20  Scsn-31 

25  ENTER  •PathliCalctO 

50  6INIT 

60  PLOTTER  IS  CRT  ," INTERNAL" 

70  GRAPHICS  ON 

73  X_gdu_mex-I00»MAX<  I  .RATIO) 

74  Y_gdu_nax-I00«MAX(  I  ,  l/RATIO) 

75  LORG  6 

76  FOR  1--.3  TO  .3  STEF  .  I 

77  MOVE  X_Qdu_nax/2+I  ,Y_odu_nav 

7B  LABEL  "Prof-Pt I /Qref  US  PROBE  DISPLACEMENT" 

79  NEXT  I 

83  DEG 

B4  LOIR  90 

85  MOVE  0,Y_gdu_max/2 

85  LABEL  "Pref-Pt 1 /Qref " 

87  LDIR  0 

89  MOVE  X_gdu_i«iax/2  ..  l«Y_gdu_nax 

B9  CSIZE  3.1 

91  LABEL  "BLADE-TO-BLADE  (In)" 

92  VIEWPORT  . 1 •X_odu_nax  , . 99«X_gdu_nax r . 1 S« Y_gdu_nax , . 9»Y_gdu_max 

94  FRAME 

95  U1NDOU  0.3,0.. 7 

95  AXES  .1  ..01  .0.0.5.10.2 

97  CLIP  OFF 

98  CSIZE  2. 5, .5 

99  LORG  5 

100  FOP  1-0  TO  3  STEP  .5 

101  MOVE  I  .-.01 

102  LAPEL  USING  "I.K'lI 

103  NEXT  I 

104  LORG  8 

105  FOR  1-1 .0  TO  0  STEP  -.  I 
105  MOVE  -.01  ,1 

107  LABEL  USING  "DD.DD"i  I 

108  NEXT  I 

109  FOR  K-1  TO  Seen 

1 13  PLOT    Calc(K,1  ).Calc(K  .18) 

I  14  NEXT    K 

117  END 
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B7.8      Plot    Program    BETAPQSIT 


1  IPROGRAM  BETAPOSIT 

2  "PROGRAM  PLOTS  BETA  VS  PROBE  POSITION 
4  MASS  STORAGE  IS  VCLASSICK/REDDATA" 

7  INPUT  "ENTER  THE  NAME  OP  THE  REDUCED  DATA  FILE"  .Calcda t » 

10  ASSIGN  BPathl  TO  Calcdalt 

I  I  OPTION  BASE  1 

12  DIM  Calcd00.25) 

17  MAT  Celc-  (0) 

20  Scan-31 

2S  ENTER  GPathl iCalc(»  ) 

50  GINIT 

60  PLOTTER  IS  CRT ,* INTERNAL" 

70  GRAPHICS  ON 

73  X_gdu_max-100"MAX( 1  .RATIO) 

74  Y_gdu_nax-100»MAX< 1 ,1/RATIO) 

75  LORG  G 

7G  FOR  I--. 3  TO  .3  STEP  . 1 

77  MOVE  X_gdu_max/2+I  ,Y_gdu_max 

79  LABEL  "BETAI  VS  PROBE  DISPLACEMENT" 

79  NEXT  I 

83  DEG 

64  LDIR  90 

85  MOVE  0,Y_gdu_nax/2 

88  LABEL  "BETAI  (dag)" 

87  LDIR  0 

88  MOVE  X_gdu_max/2 ,. l»Y_gdu_nax 

89  CSIZE  3.1 

91  LABEL  "BLADE-TO-BLADE  (In)" 

92  VIEWPORT  . I «X_gdu_max  , . 99»X_gdu_nax , . I 5»Y_gdu_nax , . 9« Y_gdu_rtax 

94  FRAME 

95  WINDOW  0.3.-50.-45 

9S  AXES  .1 ,.2.0,-50.5.5.2 

97  CLIP  OFF 

98  CSIZE  2. 5. .5 

99  LORG  G 

100  FOR  1-0  TO  3  STEP  .5 

101  MOVE  I  .-50.2 

102  LABEL  USING  "»,K"|I 

103  NEXT  I 

104  LORG  8 

105  FOR  I--50.0  TO  -45.0  STEP  1 
10G  MOVE  -.01  .1 

107  LABEL  USING  "DDD.D"|I 

108  NEXT  I 

109  FOR  K-1  TO  Scan 

I  13  PLOT    Calc(K,1  >,-Calc<K,9) 

1 14  NEXT    K 

117  END 


131 


B7.9   Plot  Program  VVREFSPAN 


1  I  PROGRAM  VVREFSPAN 

2  'PROGRAM  FLOTS  V1/VREF  VS  PROBE  POSITION  FOR  A  SPAN-UISE  SURVEY 

4  MASS  STORAGE  IS  VCLASSICK/REDDATA" 

5  INPUT  'ENTER  THE  NAME  OF  THE  REDUCED  DATA  FILE"  .Calcdat * 

6  ASSIGN  SPath2  TO  CalcdatS 

9  OPTION  BASE  I 

10  DIM  Calc<:30.25> 
1  I  MAT  Calc-  (0) 

12  Scan-42 

14  ENTER  PPath2iCalc( •  ) 

50  G  INI  T 

60  PLOTTER  IS  CRT, "INTERNAL" 

70  6RAPHICS  ON 

73  X_gdu_max-100»MAX< 1  .RATIO) 

74  Y_gdu_max-I00»MAX( I . I/RATIO) 

75  LORG  6 

76  FOR  I--. 3  TO  .3  STEP  .  I 

77  MOVE  X_gdu_max/2+I  ,Y_gdu_max 

78  LABEL  "Vl/Vref  US  PROBE  DISPLACEMENT" 

79  NEXT  I 

83  DEG 

84  LOIR  90 

85  MOVE  0,Y_gdu_nax/2 
B6  LABEL  "Vl/Vref" 

87  LDIR  0 

89  MOVE  X_gdu_nax/2 , . 1"Y_gdu_max 

89  CSIZE  3.1 

91  LABEL  "SPAN  ( In)  " 

92  VIEWPORT  . I »X_gdu_nax .  . 99«X_gdu_max ,. l5«Y_gdu_nax  . . 9« Y_gdu_nax 

94  FRAME 

95  WINDOU  -5,5.1  .1  .5 

96  AXES  I  ,.01 ,-5,1 .0,1  ,10.2 

97  CLIP  OFF 

98  CSIZE  2.5. .5 

99  LORG  6 

100  FOR  1-5  TO  -5  STEP  -I 

101  MOVE  I  ,.99 

102  LABEL  USING  "I  ,K"  I  I 

103  NEXT  I 

104  LORG  8 

105  FOR  1-15  TO  1 .0  STEP  -.  I 

106  MOVE  -5.05,1 

107  LABEL  USING  "DO-DO" l I 

108  NEXT  I 

109  FOR  K-l  TO  Scan 

113  PLOT  Caic(K  .1  >,Calc(K  ,7)/Calc(K ,14  ) 

I  14  NEXT  K 

117  END 
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B7.10   Plot  Program  VVREFUSPAN 


1  I  PROGRAM  VVREFUSPAN 

2  IPROGRAM  PLOTS  V2/VREF  VS  PROBE  POSITION  FOR  UPPER  TRAVERSE  SPAN-WISE 

3  I  SURVEYS 

5  MASS  STORAGE  IS  VCLASSICK/REDOATA" 

6  INPUT  "ENTER  THE  NAME  OF  THE  REDUCED  DATA  FILE"  .Calcda t $ 

7  ASSIGN  ?Path2  TO  Calcdatt 

9  OPTION  BASE  I 

10  DIM  Calc(l00,25> 

11  MAT  Calc-  (0) 

12  Scan=3B 

14  ENTER  *Path2iCalc(»  ) 

50  6INIT 

G0  PLOTTER  IS  CRT  ," INTERNAL" 

70  6RAPHICS  ON 

73  X_gdu_nax-I00«MAX< I  .RATIO) 

74  Y_gdu_nax-I00«MAX< 1  , l/RATIO) 

75  LORG  6 

7G  FOR  I--. 3  TO  .3  STEP  . I 

77  MOVE  X_gdu_nax/2+I  ,Y_gdu_nax 

78  LABEL  "V2/Vref  US  PROBE  DISPLACEMENT" 

79  NEXT  I 

83  DEG 

84  LDIR  90 

85  MOVE  0,Y_gdu_nax/2 
8G  LABEL  "V2/Vref" 

87  LDIR  0 

88  MOVE  X_gdu_nax/2 .. l"Y_gdu_max 

89  CSIZE  3,1 

91  LABEL  "SPAN  (In)  ' 

92  VIEWPORT  . I «X_gdu_max  , .  99»X_gdu_nax  ,. 15»Y_gdu_max , . 9« Y_gdu_max 

94  FRAME 

95  WINDOW  -5, 5, .5,1 .0 

96  AXES  1  ..01  .-5. .5,1  ,10.2 

97  CLIP  OFF 

98  CSIZE  2. 5, .5 

99  LORG  6 

100  FOR  1=5  TO  -5  STEP  -I 

101  MOVE  I ..49 

102  LABEL  USING  "t  .K"  »  I 

103  NEXT  I 

104  LORG  8 

105  FOR  1  =  1 .0  TO  .5  STEP  -.  I 
10G  MOVE  -5.05,1 

107  LABEL  USING  "DD.OD'iI 

108  NEXT  I 

109  FOR  K-l  TO  Scan 

113  PLOT  Calc(K,1  ),Calc(K  ,7>/Calc(K  ,14  ) 

I  14  NEXT  K 

117  ENO 
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B7.ll   Plot  Program  CPBLADEPLQT 


1  I  PROGRAM  CPBLADEPLOT 

2  1PR06RAM  PLOTS  MASS  AVERAGED  BLADE  COEFFICIENT  OF  PRESSURE  AGAINST 

3  'THE  FRACTION  OF  CORD  X/C  FROM  THE  LEADING  EDGE. 
5  MASS  STORAGE  IS  VCLASSICK/REDOATA" 

7  INPUT  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  BLADE  CP ' S-  .Cp f  lie* 

10  ASSIGN  SPathl  TO  Cpfllet 

11  OPTION  BASE  1 

12  DIM  Cpmassavgf 48  ) 
15  DIM  Xoc<20> 

IS  MAT  Cpnassavg-  (0) 

19  DATA  98.8,94.8.90.9,86.8.82.8.78.8.71 .5. G4.  I  ,56.7,49.3,41 .9  ,34.3,26.9,19. G 
.12.2.8.6,4,8.3.2,1 .6,0 

20  READ  Xoc( •  ) 

26  ENTER  BPathl iCpnassavgl •  ) 

54  GINIT 

60  PLOTTER  IS  CRT ," INTERNAL - 

70  GRAPHICS  ON 

73  X_gdu_nax-100«MAX( 1  .RATIO  ) 

74  Y_gdu_nax-I00«MAX( 1  . 1 /RATIO) 

75  LORG  6 

76  FOR  I--. 3  TO  .3  STEP  .  1 

77  MOVE  X_gdu_max/2+I  ,Y_gdu_max 

78  LABEL  "Cp  VS  PERCENT  CHORD- 

79  NEXT  I 

83  DEG 

84  LDIR  90 

85  MOVE  0,Y_gdu_nax/2 

86  LABEL  -Cp- 

87  LOIR  0 

88  MOVE  X_gdu_max/2 , . l«Y_gdu_nax 

89  CSIZE  3,1 

91  LABEL  -X/C  PERCENT  CHORD- 

9?  VIEWPORT  . 1 •X_gdu_max , . 99«X_gdu_nax , . I 5»Y_gdu_nax  ,  . 9«Y_gdu_max 

94  FRAME 

95  UINDOU  0,100,1 .0.-1  .6 

96  AXES  5. .2 ,0.1 .0.2,2.2 

97  CLIP  OFF 

99  CSIZE  2. 5, .5 

99  LORG  6 

100  FOR  1-0  TO  100  STEP  10 

101  MOVE  I  .1 .02 

102  LABEL  USING  -t  ,K-iI 

103  NEXT  I 

104  LORG  8 

105  FOR  I--1 .6  TO  I .0  STEP  .4 
I0G  MOVE  -.6,1 

107  LABEL  USING  "DO.DD-iI 

108  NEXT  I 

109  FOR  N=l  TO  20 

113  PLOT  Xoc(N) ,Cpna99avg(N+3> 

1 14  NEXT  N 

1 15  FOR  N-l  TO  20 

116  PLOT  Xoc(21-N),Cpnas9avg(22+N) 

1 17  NEXT  N 
119  END 
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R7.12   Program  CORRECT  A 


is 
11 

20 

30 

35 

40 

80 

90 

100 

110 

120 

130 

140 

150 

151 

153 

154 

155 

15G 

157 

159 

159 

160 

151 

1G2 

IB3 

IB4 

155 

165 

167 

169 

169 

170 

171 

172 

173 

174 

175 

192 

194 

195 

197 

199 

200 

201 

203 

210 


IPROGRAM  CORRECT  A 
OPTION  BASE  I 
DIM  Scldata* 1  .106  ) 
DIM  Correctaray* I  ,106  ) 
HAT  Correctaray-  (0) 
MAT  Scldata-  <0> 

MASS  STORAGE  IS  "/CLASSICK/REDOATA" 

INPUT  "ENTER  THE  NAME  OF  THE  FILE  TO  BE  CORRECTED" , Scl f 1 1 eS 
INPUT  "ENTER  THE  NAME  OF  THE  CORRECTED  F ILE "  .Correct f i let 
CREATE  BOAT  Correct f 1 le«  ,500  .848 
ASSIGN  ffPathl  TO  Sclfilel 
ASSIGN  PPath2  TO  CorrectfllaS 
FOR  N-l  TO  49 
ENTER  SPethl .NiScldata* •  ) 
ON  ENO  »Path1  60T0  Adddata 
Adddata:   IF  N-49  THEN 


Scldata( 

Sc 1  da t a( 

Scl data( 

Scldata* 

Scldata* 

Scldata* 

Scldata( 

Sc 1  data* 

Sc  1  da t a( 

Scldata( 

Scldata* 

Sc 1 dat a( 

Scl data* 

Scldata* 

Scldata* 

Scldata* 

Scldata* 

Scldata* 

END  IF 

MAT  Correctaray-  Scldata 

OUTPUT  PPath2,NiCorrectaray<»> 

NEXT  N 

ASSIGN  PPath2  TO  CorrectflleS 

FOR  N=l  TO  49 

ENTER  ePath2,N|Correctaray(» ) 

PRINT  " •" 

PRINT  "SCAN" ,N 
PRINT  Correctaray* • ) 

PRINT  "•• ....." 

NEXT  N 
END 


.1  )-2.000E-2 
,2)-1 .494E+1 
,3)-1.256E+l 
,4)— 6.520E  +  0 
,5>-7.700E+0 
.B>  — B.160E-I 
,7)--8.2B0E-l 
,8>--3.2B0E-l 
,9)--1 .270E+0 
,10)=1 .07SE+1 
,11  )--7.200E  +  0 
,12  )-1 .000E-2 
,!3)--2.000E-3 
,14  >»-6.000E-3 
,I6)«I .770E+0 
,15)-3.0 
,l7)-4.5GIE+2 
,18)-405.20 
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B7.13   Program  CORRECT  B 


lit  iPROi.RAM    CORRECT  B 

1 1  or II UN  I'orE    I 

7.9  OKI   <JcM*l»M  .Ifiti) 

.10  0!»1   Correct aroyl  I  .ICG) 

:<■?  MAI    r.v>  -rTltHi-y-    <fl> 

IP  ll».l    Stldotfl'    (8) 

P3  HOS-;   SlorOGE    IS    */C|.f\SSICK/nE"OtVWfl" 

90  II'PIM    -FIHFR   lilt-    NftlfE   Or    THE   f  II  E    10  PE   ClWnECfBD"  .Sel  f  lie* 

IPP  IHf-UI    -Ellll.fi    tire   HOME   OF    HIE   COFRF.CTED  FILE"  .Correct  filet 

Wt  CPEME  L'L'AI    Correct  file*  ,600,810 

l?0  ^i  =  ? I f?N  OlflM.I    10   Sclftlr* 

130  0?STC-U   rfsth:    II)  Correct  fllel 

MP  Trip   N~1    10    <0 

ii;o  eiiifr  *r«iM  ,r/iS'irfnt«(« i 

151  IF  N-.15   IMEH  Scldatctt ,!5)-|,95 

tG.^  HOI   Correct  iirey*    5rHrf«« 

\r,»  OI'irilT    PI>tl.2,HiCofrrrlnr9y<»  I 

i Fsr;  hfki  N 

r  512  OrSICN   fFalliJ    10    Corrf>ilflle$ 

I'M  FOR  ri'l    10  .in 

l?^  Fllll-R  et'eth2,NiCorrectaray(0 

ig;  rRiM?  •*«•«»•••••••" 

l?1  FPlill    "SCOM"  . n 

TOO  I  I  MIT    Cot  rfclnr  s>(  •  I 

?PI  PIMNI    * ' 

T*3  iirxi  n 

no  emu 
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B7.14   Program  CORRECT  C 


m       initfonnii  connrci  c 

II  (If II Oil  BASI:    I 

2P  UJH   Ecld.l^f I .IPG) 

20  DIM  Corrrclarayl I  .IPB) 

31  DIM  Cbr.  <":lc««ta'30> 

35  HAT   Or  »•«■£'  nrfr   <P> 

•10  MAT    SrlHalc-   <0> 

50  DMA  -3.?, -3. 1  .-3.P,-.?.  9,-?.  8. -2.  7,  -2.1} . -2.6,-2. 4  .-2. J, -2.2  , -2. 1  ,-2.0,-1 

,-1.7.    1.5,-1.2,-1.1 ,-.7, ".5, -.2,. I.. 4,. 7, 1.0, 1. 3, 1. 6, 1. 9, 2. 1 ,2.3,2.5,2.6,2.7 

73  DATA   2.9.2.9,3.0:3.1  .3.2 

71  PEAU  Ctirr--M,il«<«  > 

B0  MAS5   5IPPA0E    lc    "/CLASSICk/REDnAffl" 

"o  I  win  -Inter  the  name  or  hie  mi.f  10  nr  cnnRECTEP"  ,?cir  n«« 

t P(l  llirUT    "tNIER   THE   NAME   Or    THE   COPRECIEO  FILE"  ,Corr Oct  Til s» 

IIP  CREMF    POM   Corr  est  fll'!*  ,500,840 

120  ASSIGN  BfVlttl    TO   SelMIe* 

130  ASSIGN   #l>»h.'    TO   Cor r net fl 1st 

MP  FOP   M-1     10   3? 

ISP  ENir.ll  0F*allil  ,MiSclrJala(»  ) 

IPI  Srldala( I ,  15  >*rorrec»  rM*<  N  ) 

IG3  MAT   r.orreclaray    5«H«"la 

]r,i  THJTPIM    PTalh2.HiCorracler  ey<  •  ) 

IU6  NE<(T    M 

IP:  A5315N  I?ra»li2    TO  Corr-c I f I le* 

n*  rop  n-*1  to  -5n 

135  ENTER  0Falh2  .NfCcrrectareyt » ) 

in;  riMHT    "♦»»»<«»»•«#•■ 

iio  rninT  -scan" ,n 

:P0  FIMMI  Correct  uray!  •  > 

;:oi  ri'itn  •••■••«..•»»••■ 

zp:i  nrxi  IT 

710  EMI) 
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R7.15   Program  PRBCOEF 


IB  I  PROGRAM  PRBCOEF 

20  I  THIS  PROGRAM  STORES  THE  PROBE  COEFFICIENTS  IN  A  DATA  FILE 

30  OPTION  BASE  I 

40  DIM  C(G,G  ) 

50  DATA  I  .2  .3,4.5.0.2.3.4.5,6.0.3.4  .5.6  .7.0. 4  .5,6.7.8.0,0.0.0,0.0,0,0.0,0.0,0 
,0 

60  READ  C( • ) 

70  PRINT  C( •  ) 

80  ISTORE  THE  DATA  INTO  A  FILE 

90  MASS  STORAGE  IS  '/CLASSICK/REDDATA- 

100  INPUT  "ENTER  THE  NAME  OF  THE  COEFFICIENT  F  ILE"  .Reddata* 

110  CREATE  BDAT  Reddata*  ,  1  ,400 

120  ASSIGN  ePathl  TO  Reddatat 

130  OUTPUT  GPathl iC< •  ) 

140  (PRINT  STORED  COEFFICIENT  ARRAY 

150  ASSIGN  PPatht  TO  Reddatat 

IG0  ENTER  SPalhl |C(»  ) 

1GI  FOR  N-l  TO  6 

1G2  FRINT  USIN6  "MO.  3DE  ,4X  ■  |C<  N  ,  I  )  ,C(  N  ,2  )  ,C(  N  ,3  )  ,C(  N  ,4  )  ,C(  N  ,5  )  ,C(  N  ,6  ) 

163  NEXT  N 

165  END 
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B7.16   Examples  of  Acquired  and  Reduced  Data 

Tne  Scanivalve  port  and  scanner  channel 
assignments  for  data  acquired  using  program  ACQUIRE  are 
shown  in  Table  Bl . 

An  example  of  the  table  of  survey  data  output 
by  program  ACQUIRE  in  engineering  units  ('scaled')  is  given 
in  Table  B2 ,  and  the  corresponding  reduced  data  output  by 
program  CALC  is  given  in  Table  B3  for  an  upstream  probe 
survey.  Similar  results  for  the  downstream  survey  [survey 
6  in  Table  II]  are  given  in  Table  B4  and  Table  B5 
respectively. 

An  example  of  scaled  data  output  by  program 
ACQUIRE  for  a  surface  pressure  scan  is  given  in  Table  B6. 
The  corresponding  table  of  pressure  coefficients  calculated 
by  program  CALC  is  given  in  Table  B7. 

B8.   FLEXIBLE  DISC  INITIALIZATION  AND  FILE  BACKUP 

Flexible  discs  are  used  to  backup  the  files  stored  on 
the  computer's  hard  disc.  The  file  structure  used  for  the 
present  work  was  designed  to  allow  the  contents  of  each 
subdirectory  to  be  stored  separately  from  the  other 
subdirectories.  Backing  up  the  file  system  therefore 
requires  separate  flexible  discs  for  each  subdirectory. 
Blank  discs  must  be  formatted  first,  using  the  following 
steps : 

1.   Type  MSI  "/"   [Puts  system  in  root  directory  if  not 
already  there. ] 
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TABLE  Bl .   SCANIVALVE  PORT  AND  SCANNER  CHANNEL 

ASSIGNMENTS 


5-Hole  Probe 
S.V.  1   2 

S.V.  *    1 

ch 

SCANNER  #2 

ch 

SCANNER  #2 

1 

P  atmospheric 

• P, atmospheric 

0 

SV1  READ  DATA 

40 

SV1 

ADVANCE(ste 

2 

P  calibration 

P  calibration 

1 

SV2   " 

41 

SV2 

3 

P  plenum 

P  plenum 

2 

42 

4 

P  wall  static 

20B  blade(press) 

3 

43 

5 

PI  (probe) 

19B 

4 

44 

6 

P2    " 

18B 

5 

45 

SV1 

RESET(home) 

7 

?i        " 

17B 

6 

• 

46 

SV2 

ii 

e 

P4 

16B 

7 

47 

9 

P5 

15B 

8 

48 

10 

Ptp  PrandtKtotal 

>14B 

9 

49 

11 

Psp  PrandtKstati 

:)13B 

10 

Tt (plenum) 

50 

12 

BLANK 

12B 

11 
12 

51 
52 
53 
54 

13 

It 

1  IB 

14 

II 

10B 

13 
14 
15 

15 

9B 

16 

8B   . 

55 
56 
57 
58 
59 
60 
61 

17 

7B 

16 

18 

6B 

17 

19 

5B 

18 

20 

4B 

19 

21 

3B 

20 

22 

2B 

21 

23 

1 

22 

62 

24 

^ 

2T(suction  side) 

23 

63 

64 
65 

25 

3T 

24 

YAW  XDUCER 

26 

4T 

25 

27 

5T 

26 

66 
67 
68 
69 
70 
71 
72 
73 
74 
73 
76 
77 
78 
79 

28 

6T 

27 

29 

7T 

28 

30 

8T 

29 

31 

9T 

30 

32 

10T 

31 

33 

1  IT 

32 

34 

12T 

33 

35 

13T 

34 

36 

14T 

35 

37 

15T 

36 

38 

16T 

37 

39 

17T 

38 

40 

18T 

39 

41 

19T 

42 

20T 

— 

43 

Si  (partial  inst) 

44 

S2   (suction  side  i 

45 

S3 

46 

P2  (press  side) 

47 

P3 

48 

TRAILING  EDGE 
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TABLE  B2 .   UPSTREAM  BLADE-TO-BLADE  SCALED 
DATA  FILE  L-4SEPASCL 


PROBE 


SCAN 

FROBE 
F05IT 

1 

2 

3 

4 

5 

1 

0  .00 

2 

.  800E-02 

.475E+01 

1  .  I77E+01 

-6.01 2E+00 

1 . 01 0E»0 1 

2 

.  10 

3 

400E-02 

.478Et01 

I.162E+61 

-6 . 052E  + 

i>Z) 

1 .0I4E+0I 

3 

.  20 

2 

.  600E-02 

.476E+01 

1  .I69E*01 

-6.  I48E  + 

iiii 

1 . 0 1 9Et0 1 

4 

.30 

2 

.600E-02 

. 460E+01 

I.I67Et0| 

-6.  1B4E-. 

iiii 

1 . 31 7Et01 

5 

.40 

3 

200E-02 

.473E+0I 

1 .I66E+0I 

-6.154E+ 

iiii 

1 .6I5E+0I 

6 

.50 

2 

400E-02 

.464E+0I 

I.195E+0I 

-6.1 I2E+00 

1 .02IE+01 

7 

.60 

3 

600E-02 

.482E+0I 

1 .I97Et0| 

-6.I34E+ 

Zii 

1 . 327Et0I 

5 

.70 

2 

400E-02 

.483E+01 

1 .200E+0I 

-6.  I56E  +  G0 

1 .S2SE+0I 

5 

.60 

2 

600E-02 

.484E+0I 

1 .203E+01 

-6.166E+ 

£5 

1.625E+01 

10 

.50 

4 

200E-02 

.465Er0| 

I.20IE+01 

-6.21  SE-. 

00 

1 . 023E+81 

1  1 

1  .00 

3 

400E-02 

.4B7E+01 

1  .203E-T01 

-6 . 1 80E+ 

00 

1 .G24E+01 

12 

1  .10 

3 

600E-02 

.4B6E+0I 

1 .209E+0I 

-6 . 246E  + 

£0 

1 .S26E+0I 

13 

1  .20 

4 

6C0E-02 

. 430E+0 1 

I.212E+61 

-6 . 282E  + 

00 

1 . 025Ef 61 

14 

1.30 

3 

400E-02 

.491E+01 

i.ziSE+ei 

-6 . 264E+00 

1 .027E+0I 

15 

1  .40 

3 

200E-C2 

.489E+0I 

I.2I5E+0I 

-6.334E+ 

00 

1 .032E+0I 

16 

1  .50 

3 

600E-02 

.492E+0I 

1  .225E+0I 

-6.266E+ 

00 

1 .C36E+01 

17 

1  .60 

3 

600E-02 

.43IE+01 

1 .225E+01 

-6 . 35BE+00 

1 .037E+0I 

18 

1  .70 

3 

400E-02 

.494ET01 

1  .  230E+01 

-6 . 280E  + 

00 

1 . S47Et0  1 

15 

1  .60 

3. 

600E-02 

.453E+01 

1  .233E  +  01 

-6.356E+ 

00 

1 . 048Ef0 1 

20 

1  .50 

4. 

200E-02 

.493E+0I 

1 .232E+01 

t6.38BE+ 

00 

1 .044E+01 

21 

2.00 

4. 

400E-02 

.492E»01 

1 .235Et01 

-6.374E+ 

00 

1 . 04SE+0 1 

22 

2.10 

4. 

000E-02 

.492E+01 

1 .247E+0I 

-6.490E+ 

00 

1 . 052E  +  0 1 

23 

2.20 

4. 

2C0E-02 

.4S3E+01 

1 . 249Ef0 1 

-6  .  420E  +  00 

1 . 051 E+01 

24 

2.30 

3 . 

400E-02 

.492E+0I 

I.262E+0I 

-6.5I5E+ 

00 

1 . 053E+0 1 

25 

2.40- 

4. 

600E-02 

. 489Et0 I 

1  .  266E-'01 

-6 . 574Et 

00 

1  .  055E-»01 

26 

2.50 

3 . 

600E-02 

. 45SE  +01 

1  .275E  +  01 

-6 . 566E+00 

1 . 053E+0 1 

27 

2.60 

4  . 

000E-02 

.46SE+01 

1  .27SE+0i 

-6 . 5S2£t 

L'0 

1  .  0S0E-T0 1 

26 

2  .70 

4. 

200E'02 

. 450E+0 1 

1 .276E+0I 

-6 . 53SE  + 

00 

1  . 035£f0 1 

29 

2.60 

4. 

600E-02 

. 490E+01 . 

1  .  276Ef 0 1 

-6 . 620E  + 

00 

1  .  05SE  +  0 1 

32 

2.  SO 

4. 

600E-02 

. 4BSE+0I 

1 .277E+01 

-6 .632E+ 

00 

1 . 055E+0 1 

31 

3.00 

4. 

600E-02 

.483E*01 

1 .279E+01 

-6 . 680E  + 

00 

1 . 055Et31 

SCAN  6 

7 

6 

9 

10 

1  1 

i   - 

1 . 456E +  00 

-7 

. 542E+00 

-6 

.816E+00 

-6 

. 432E+00 

1  .0l4E-f01 

s 

.  746E  +  00 

2 

?.5ISE+0G 

-7 

.542E+00 

-6 

. 8 1 6£f00 

-8 

. 500E+00 

1  .02IE+0I 

6 

.736E+00 

3 

1 . 576Et00 

-7 

. 602E+00 

-6 

. 750E+0S 

-8 

.  576E-T00 

1  .  029Et01 

D 

. 734E+0S 

4   -• 

i .55SE+00 

-7 

. 542Et00 

-6 

. 706E+00 

-6 

6I2E+00 

1  .  025Et0 1 

D 

.  762E+00 

5   -• 

7 .56SE+00 

-7 

. 57BE+0O 

-6 

.620E+00 

-8 

650Ef00 

1  .  025E  +  0 1 

5 

. S 1 4E  +  00 

6   -• 

F.592E+00 

-7 

. 535E+00 

-6 

. 662E+0C 

-6 

7 1 4E+00 

1 . 02BEt0 1 

5 

.  B20E  +  00 

7 

r .  594E->- 00 

-7 

. 6 1 2E+00 

-6 

. 650E+O0 

-6 

8  i  6Et00 

1 . 032E*0 1 

B 

.  B22E+00 

8   -" 

"  .626E  +  00 

-7 

. 626E+00 

-6 

. 595E+00 

-8 

660E+00 

1 . 035E+0 1 

6 

.  6 1 BE  +  03 

9  -• 

r . 630E+00 

-7 

.  640£t00 

-6 

. 562E+0O 

-6 

662E+00 

1 .035E+0 1 

6 

860£t00 

ia  -■ 

" . 640E»00 

-7 

.662E+00 

-6 

.586E+00 

-8 

862E+00 

1 .034E+0 1 

6 

B50E+00 

1 1  -• 

"  .670E*00 

-7 

.626Er00 

-6 

.592E+B3 

-B 

920E+00 

1 . 042Et0 1 

6 

S04E+00 

12   -' 

" . 65SE+00 

-7 

.  696E  +  00 

-6 

.534E+00 

-8 

9I4E+00 

1 . 044E»0I 

6 

636Ef 00 

13   -' 

" .  652E-»00 

-7 

.  696Et00 

-6 

.670E+00 

-8 

870Et00 

1  .  043E-»01 

S 

322Ef 00 

14   -' 

' .  674E  +  00 

-7 

.6666*00 

-6 

.694E+00 

-8 

834ET00 

1  .045Ef0l 

5 

924Et00 

15   -' 

".71 4E  +  00 

-7 

.700E+00 

-6 

.764E+00 

-6 

BI6E+00 

1 .655E+0I 

E 

574E+0E 

16   -' 

' .  766E  +  00 

-7 

.758E+00 

-G 

.834E*00 

-8 

604E+00 

1 .C55E+01 

7 

008E+00 

17   -' 

\726Et00 

-7 

.726E+00 

-6 

.832E+00 

-8 

642E+00 

1 .057Er01 

- 

7 

050E+00 

16   -' 

.  744E  +  00 

-7 

. 772E+00 

-6 

.8S6Et00 

-8 

870E+00 

1 . 060E+0I 

- 

7 

042E+00 

19   -• 

".788E+00 

-7 

.772E+00 

-6 

. 970E+00 

-6 

626E+00 

1  .  0£2E-r0  1 

7 

055E+03 

20  -' 

. 732E+00 

-7 

.776E+00 

-6 

.920E+00 

-6 

622E+00 

1  .061E+01 

- 

7 

1 02E+00 

21   -' 

'.788Ef00 

-7 

.776E+00 

-6 

.950E+60 

-B 

886E+00 

1  .065E  +  0I 

- 

7 

076E-'00 

22  -"i 

.615E+00 

-7 

.840E+00 

-6 

.984E+00 

-a 

B76E+00 

1 .075E  +  0  1 

- 

7 

I45E+00 

23 

.642E+00 

-7 

.B42E+00 

-6 

. 970E+00 

-8 

978E+00 

1 .075E+0I 

- 

7 

1  72E  +  C0 

24   -' 

. 514E+00 

-7 

. 530E+00 

-7 

. 052E+00 

-9 

066E+00 

1  .092Et01 

- 

7 

250£t0S 

25 

.960E+00 

-7 

.932E+00 

-7 

.040E+00 

-5 

1 40E+C0 

1  .052E  +  01 

- 

7 

220£t0£ 

26  -" 

. 546E+00 

-7 

.956E+00 

-6 

. 974E+00 

-9. 

I56E+00 

1 .056£T0i 

- 

7 

2S4Et00 

27   -" 

. 976E+00 

-7 

."585E  +  00 

-6 

. 31 2E  +  00 

-3. 

223Et00 

1  .096Et01 

~ 

7 

3 1 0E+00 

28   -• 

. S68E+00 

-7 

. 9S0E+00 

-6 

. 936E+00 

-9. 

256E+00 

1 .093E+01 

- 

7 

364E+00 

29  -■; 

. 996E+00 

-8 

. 006E+00 

-6 

. 852Ef00 

-9. 

274E+60 

1  .  1 03E»0 1 

- 

7 

3 1 6E*00 

30   -' 

. S64E+00 

-7 

. 976E»00 

-B 

.830E+G0 

-9 

326E+00 

1 . 03SE+01 

- 

7 

324E»0fl 

3i  -■; 

. 965E+00 

-8 

. 004E+00 

-6 

.6B6E+00 

L41 

-9. 

336E+00 

1 .I07E*0I 

" 

7. 

3SS£t00 

TABLE  B2  (CONT.)-   UPSTREAM  BLADE-TO-BLADE  SCALED 
PROBE  DATA  FILE  L-4SEPASCL 


SCAN  12  13  14 

1  -6.B00E-03  -I.666E-BI  -2.46BE-G1 

2  e.eeeE+ee  -i.ES6E-6i  -2.62BE-bi 

3  0.G00E+00  -I.66GE-6I  -2.620E-0I 

4  2.0B0E-03  -I.80CE-0I  -2.62BE-0I 

5  6.000E-03  -I.84CE-0I  -2.56BE-BI 

6  -4.000E-03  -I.BB0E-0I  -2.60BE-3I 

7  -8.B0BE-03  -I.BBCE-01  -2.5B0E-0I 
6  I.600E-02  -I.760E-0I  -2.460E-0I 
9  I.800E-02  -I.502E-0I  -2.520E-0I 

16  -I.400E-02  -1.B40E-0I  -2.G20E-0I 

11  2.00CE-03  -1.B60E-0I  -2.520E-0I 

12  -2.B00E-03  -I.7B6E-01  -2.62GE-0I 

13  -I.600E-02  -2.020E-0I  -2.B40E-0I 

14  -I.B0BE-02  -I.760E-0I  -2.5S0E-SI 

15  4.000E-63  -1.500E-G1  -2.42  BE  - C I 
IB  2.E0SE-03  -I.3G0E-0I  -2.62BE-BI 

17  8.333E-03  -I.663E-0I  -2.SE0E-0I 
IB  I.2BBE-B2  -I.620E-BI  -2.68BE-BI 
19  4.B0BE-83  -I.78OE-0I  -2.58BE-BI 
2B  G.B35E+EB  -I.78BE-3I  -2.BGBE-BI 

21  4.BBBE-B3  -I.84BE-0I  -2.74BE-BI 

22  I.6BBE-02  -I.7BBE-3I  -2.5BBE-0I 

23  4.BBBE-B3  -I.92GE-BI  -2.7BBE-BI 

24  2.BBBE-B3  -1.62BE-BI  -2.54BE-BI 

25  B.939E-I8  -I.72BE-0I  -2.B23E-BI 
25  I.40BE-B2  -1.32EE-BI  -2.46BE-BI 

27  G.BBBE-03  -I.74BE-0I  -2.46BE-0I 

28  2.BBBE-B3  -1.6S3E-0I  -2.55BE-BI 
23  0.B5BE+BB  -I.74BE-3I  -2.5BBE-BI 

30  2.BB0E-63  -I.96BE-BI  -2.7BBE-0I 

31  -2.BBBE-B3  -I.853E-BI  -2.55BE-BI 


YnU 

TEHP 

mHGS 

DE 

3 

(fi 

> 

FRE35 

4 

.892E+0I 

4 

.6B7Et02 

4B5 

47 

4 

.870E+0I 

4 

.603E+02 

435 

47 

4 

.667E+0I 

4 

.  E02E+02 

4E5 

47 

4 

.665E+6I 

4 

.60BE+B2 

435 

47 

4 

.BESE+01 

4 

.59SE»02 

4B5 

47 

4 

6S7E+0I 

4 

.537Ef 22 

4B5 

47 

4 

6BSE+0I 

4 

.55SE+B2 

4B5 

47 

4 

8SGE+0I 

4 

.534E+02 

435 

47 

4 

B57E+0I 

4 

.535E*02 

4B5 

47 

4 

8SSE+81 

4 

.535E+32 

405 

47 

4 

BBBEtBI 

4 

.S35E+02 

405 

47 

4 

855E+BI 

4 

534Et02 

405 

47 

4 

857E+BI 

4 

593E+62 

405 

47 

4 

867E+0I 

4 

555E+B2 

405 

47 

4 

BG5E*0I 

4 

533Et02 

435 

47 

4 

ScoE  t u 1 

4 

532Et32 

435 

47 

4 

BB7E+B1 

4 

553E+32 

435 

47 

4 

8S4E+BI 

4 

553E*02 

435 

47 

4 

BBBEtBI 

4 

55BE+B2 

405 

47 

4 

653E+BI 

4 

534E+32 

4B5 

47 

4 

6S5E+3I 

4 

534£fB2 

435 

47 

4 

5E5E+3 1 

4 

535EfB2 

435 

47 

4 

B64Ef Bl 

4 

55SE+32 

435 

47 

4 

875E+3I 

4 

53  1  E*32 

435 

47 

4 

8E5E»3I 

4 

B33E-»£2 

435 

47 

4 

B55E+SI 

4 

6B3E»62 

435 

47 

4 

855E+3I 

4 

6E3E+G2 

435 

47 

4 

867E+BI 

4 

6B2E+02 

435 

47 

4 

6G5E+3I 

4 

5C4Et02 

435 

47 

4 

654E+BI 

4 

6B7E+32 

435 

47 

4. 

873E+0I 

4 

60SE+02 

405 

47 

142 


TABLE  B3 .   UPSTREAM  BLADE-TO-BLADE  REDUCED  PROBE 
DATA  FILE  L-4SEPACALC 


SCAN 

PRB 

BETA 

GAMMA 

PHI           Xval 

Xref 

POSIT 

1 

0.00 

4 

.240E-02 

9. I72E-02 

-1 

.550E-03     1 

.092E-01 

9.023E-02 

2 

.10 

4 

.252E-02 

9.529E-02 

-3 

.445E-03     1 

.093E-01 

9.044E-02 

3 

.20 

4 

.277E-C2 

1 .028E-01 

-7 

.4B3E-03     1 

.096E-01 

9.058E-02 

4 

.30 

4 

.263E-02 

1 .076E-01 

-1 

.012E-02     1 

.093E-01 

9.06IE-02 

5 

.40 

4 

.263E-02 

1 .163E-0I 

-1 

.492E-02     1 

.092E-01 

9.057E-02 

6 

.50 

4 

.283E-02 

I.153E-0I 

-1 

.433E-02     1 

.095E-0I 

9.091E-02 

7 

.60  . 

4 

.299E-02 

1 .2I2E-01 

-1 

.759E-02     1 

.096E-01 

9.098E-02 

B 

.70 

4 

.306E-02 

1 .276E-0I 

-2 

. II6E-02     1 

.097E-01 

9. 10BE-02 

9 

.80 

4 

.303E-02 

I.275E-01 

-2 

.1I1E-02     1 

.096E-01 

9.1 I9E-02 

10 

.90 

4 

.312E-02 

1 .270E-01 

-2 

.08IE-02     1 

.097E-01 

9.  113E-02 

1  1 

1  .00 

4 

.304E-02 

1 .301E-0I 

-2 

. 260E-02     1 

.096E-0I 

9. 12IE-02 

12 

1.10 

4 

.320E-02 

1 .242E-0I 

-1 

.923E-02     1 

.099E-0I 

9.  145E-02 

13 

1.20 

4 

316E-02 

1 .226E-01 

-1 

.B36E-02     1 

.099E-0I 

9.  I53E-02 

14 

1.30 

4 

31BE-02 

I.192E-01 

-1 

.E46E-02     1 

.099E-0I 

9. I64E-02 

15 

1.40 

4 

335E-02 

1 .139E-01 

-1 

.345E-02     1 

.102E-0I 

9. 1B2E-02 

IE 

1.50 

4 

358E-02 

1 .0B7E-0I 

-1 

.0S6E-02     1 

.  10GE-01 

9.203E-02 

17 

1  .60 

4 

353E-02 

1 .077E-01 

-1 

.003E-02     1 

.  105E-0I 

9.203E-02 

IB 

1.70 

4 

383E-02 

1 .083E-01 

-1 

.029E-02     1 

.I09E-0I 

9.2I9E-02 

19 

1.80 

4 

389E-02 

1 .0I7E-01 

-6 

635E-03     1 

1  1  IE-01 

9.233E-02 

20 

1  .90 

4 

375E-02 

1 .045E-01 

-8 

234E-03     1 

.  109E-01 

9.229E-02 

21 

2.00 

4 

394E-02 

1 .060E-0I 

-9 

034E-03     1 

.1 1 IE-01 

9.240E-02 

22 

2.10 

4 

41 1E-02 

1 .031E-0I 

-7 

393E-03     1 

.114E-01 

9.283E-02 

23 

2.20 

4 

4I2E-02 

1 .094E-01 

-1 

087E-02     1 

113E-01 

9.29IE-02 

24 

2.30 

4 

450E-02 

1 .093E-01 

-1 

077E-02     1 

.118E-01 

9.338E-02 

25 

2.40 

4 

455E-02 

1 . 133E-01 

-1 

297E-02     1 

I1BE-0I 

9.352E-02 

26 

2.50 

4 

457E-02 

1 . 178E-0I 

-1 

546E-02     1 

1 18E-01 

9.377E-02 

27 

2.60 

i 

466E-02 

1 .242E-0I 

-1 

905E-02     1 

1 I8E-01 

9.388E-02 

28 

2.70 

t 

462E-02 

1 .250E-0I 

-1 

949E-02     1 

1 18E-0I 

9.3B8E-02 

29 

2.80 

4 

46IE-02 

1 .30SE-0I 

-2 

263E-02     1 

1 I7E-01 

9.397E-02 

30 

2.90 

4 

45IE-02 

1 .348E-01 

-2 

507E-02     1 

1 I5E-0I 

9.391E-02 

31 

3.00 

4 

467E-02 

1 .3IBE-01 

-2 

336E-02     1 

1 I7E-01 

9.400E-02 

SCAN 

Ve 

L 

Vref 

0 

Qref         MACH 

YAW 

DEG 

1 

2 

S69E+02 

2. 123E+02 

1 .682E+0 

1  . I6SE*0I 

2.455E-0 

4.892E401 

2 

2 

570E+02 

2.  127E  +  02 

1 .686E+0 

1  .  I70E+01 

2.459E-0 

4.870E+01 

3 

2 

576E+02 

2.  132E+02 

1 .E95E+0 

1 .  177E  +  0I 

2.465E-0 

4.867E+01 

4 

2 

570E+02 

2.  130E+02 

1 .687E+0 

1 . 175E+01 

2.459E-0 

4.RRSE+01 

5 

2 

5GEE+02 

2.  I28E  +  02 

1 .684E+0 

1 . I74E+0I 

2.457E-0 

4.8E6E+0! 

G 

2 

573E+02 

2.13GE+02 

1 .692E*0 

1 .183E+0I 

2.4E3E-0 

4.867E+01 

7 

2 

576E+02 

2.  13BE+02 

1 .697E+0 

1 .I85E+01 

2.467E-0 

4.866E+01 

8 

2 

576E+02 

2.140E+02 

I.697E+0 

1 . 187E+01 

2.467E-0 

4.866E+01 

9 

2 

575E+02 

2.  143E+02 

1 .696E+0 

1 . 190E+01 

2.466E-0 

4.8E7E+01 

10 

2 

579E+02 

2. 142E+02 

1 .700E+0 

1 . I89E+01 

2.469E-0 

4.86EE+01 

1  1 

2 

575E+02 

2.U3E+02 

1 .695E+0 

1 . 19IE+01 

2.465E-0 

4.866E40I 

12 

2 

581E*02 

2.148E+02 

1 .704E+0 

t .I97E+0I 

2.472E-0 

4.865E+0I 

13 

2 

SB1E+02 

2.  IS0E+02 

1 .703E+0 

1 . I99E+01 

2.47IE-0 

4.867E+0I 

14 

2 

583E+02 

2.I53E+02 

1 .705E+0 

1.202E+01 

2.473E-0 

4.8G7E+0I 

15 

2 

589E+02 

2.1S7E+02 

1 .715E+0 

1 .207E+01 

2.480E-0 

4.865E+01 

16 

2 

598E+02 

2.162E+02 

1 .727E+0 

I.2I2E+01 

2.4B8E-0 

4.8G5E+0I 

17 

2 

597E+02 

2.162E+02 

1.725E+0 

1 .212E+01 

2.487E-0 

4.867E+01 

18 

2 

606E+02 

2. I66E+02 

1 .737E+0 

1 .217E+01 

2.496E-0 

4.864E+01 

19 

2 

E09E+02 

2. 168E+02 

1 .742E*0 

1 .220E+0I 

2.500E-0 

4.866E401 

20 

2 

605E+02 

2. I6BE+02 

1 .735E+0 

1 .21 9E+01 

2.495E-0 

4.865E+0I 

21 

2 

611E+02 

2.171E+02 

1 .743E+0 

1 .222E+0I 

2.500E-0 

4.865E*0I 

22 

2 

617E+02 

2.1B1E+02 

1 .75IE+0 

1 .234E+0I 

2.506E-0 

4.B66E+0I 

23 

2 

6I6E+02 

2.184E+02 

1 .749E+0 

1 .236E+0I 

2.5O5E-0 

4.864E+0I 

24 

2 

629E+02 

2. I96E+02 

1 .765E+0 

1 .248E+01 

2.516E-0 

4.875E+0I 

25 

2 

630E+02 

2.I99E+02 

1 .765E+0 

1 .252E+01 

2.5I7E-0 

4.866E+01 

26 

2 

.629E+02 

2.20SE+02 

1 .764E40 

1.259E+0I 

2.5I6E-0 

4.865E*01 

27 

2 

.630E+02 

2.208E+02 

1 .765E+0 

1 .262E+01 

2.517E-0 

4.865E+01 

28 

2 

.62BE+02 

2.207E+02 

1 .763E+0 

1 .262E+0I 

2.5I5E-0 

4.867E+01 

29 

2 

G2SE+02 

2.210E+02 

1 .760E+0 

1 .2E4E+0I 

2.5I3E-0 

4.863E+01 

30 

2 

623E+02 

2.209E402 

1 .754E+0 

1 .263E+0I 

2.508E-0 

4.864E+01 

31 

2 

629E+02 

2.211E+02 

1 .762E+0 

1 .265E+01 

2.514E-0 

4.879E+01 
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TABLE    B3     (CONT.)-       UPSTREAM    BLADE-TO-BLADE    REDUCED 
PROBE    DATA    FILE    L-4SEPACALC 


SCAN 

Pref-Pt/Qref 

1 

1  .432E-01 

2 

1 .436E-0I 

3 

1  .445E-CI 

4 

1.449E-01 

5 

1 .459E-01 

6 

1  .473E-01 

7 

1 .435E-0I 

8 

1 .447E-0I 

9 

1.49IE-0I 

10 

1 .459E-01 

1  1 

1 .S02E-0I 

12 

1 .5I4E-0I 

13 

1 .553E-01 

1  4 

1 .56IE-01 

15 

1 .557E-0I 

16 

1 .56IE-0I 

17 

1  .549E-01 

18 

1 .499E-0I 

19 

1 .52IE-01 

20 

1 .544E-01 

21 

1 .522E-01 

22 

1 .579E-0I 

23 

1  .604E-0I 

24 

1 .626E-0I 

25 

1 .6S5E-01 

26 

1 .698E-01 

27 

1 .7I2E-01 

28 

1 .731E-0I 

29 

1 .762E-0I 

30 

1 .758E-01 

31 

1 .742E-01 

ENSEMBLE  AVERAGES 

PPAVG  PAAV6  TEMPAVG     XREFAVG        VREFAUG      QREFAVG 

I.227E+0I       405.47E+00     459.78      9.210E-02      2.I65E+02     1.2I4E+01 
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TABLE  B4 .   DOWNSTREAM  BLADE-TO-BLADE  SCALED 
PROBE  DATA  FILE  U-SEPASCL 


CAN 

PROBE 

1 

2 

3 

4 

5 

fe 

7 

POSIT 

1 

0 

.00 

3.200E-02 

1 .498E»0I 

1 .08BE*0I 

-S.5B4E*00 

6.946E*00 

-6 

8B0E-0I 

-6 

920E-0I 

2 

.10 

2.600E-02 

1 .50IE*0I 

I.08IE+0I 

-5.626E+00 

6.648E*00 

-6 

.700E-0I 

-6 

840E-0I 

3 

.20 

3.800E-02 

l.499E*0l 

1 .074E+0I 

-S.6I4E*00 

5.9S4E+00 

-6 

440E-0I 

-6 

680E-0I 

4 

.30 

3.000E-02 

I.50IE+0I 

1 .074E+0I 

-S.E02E+00 

S.504E<00 

-6 

280E-0I 

-6 

280E-0I 

5 

.40 

3.800E-02 

1 .498E»0I 

1 .072E+0I 

-5.576E»00 

S.0S8E+00 

-6 

080E-0I 

-6 

080E-0I 

6 

.50 

4.200E-02 

l.499E*0l 

I.072E+0I 

-5.568E*00 

4.78BE+00 

-5 

940E-0I 

-5, 

940E-0I 

7 

.55 

4.400E-02 

1 .497E»0t 

1 .07IE+0I 

-S.SS0E»00 

4.73BE+00 

-6 

020E-0I 

-6, 

I20E-0I 

e 

.60 

3.600E-02 

l.500E»0l 

1 .070E*0I 

-5.57EE+00 

4.728E*00 

-6 

000E-0I 

-6. 

I20E-0I 

9 

.65 

4.800E-02 

1  .50IE*0I 

1 .0B8E»0I 

-S.548E<00 

4.720E400 

-6 

340E-0I 

-6 

400E-0I 

ip 

.70 

4.400E-02 

1 .500E«0I 

t .0B9E+0I 

-5.490E*00 

4.83GE*00 

-6, 

,300E-0I 

-6. 

520E-0I 

ti 

.75 

3.600E-02 

1  .500C0I 

1 .072Et0l 

-5.574E<00 

4.968E<00 

-6 

300E-0I 

-6. 

660E-0I 

12 

.80 

4.400E-02 

l.498E*0l 

t .073E+0I 

-5.5B8E400 

5.  I60E*00 

-6, 

880E-0I 

-6. 

740E-0I 

13 

.85 

4.000E-02 

I  .50IE»0I 

1 . I05E+0I 

-5.784E+00 

5.5I2E»00 

-7, 

200E-01 

-7. 

300E-0I 

14 

.90 

4.000E-02 

t.499E*01 

1 .I28E+0I 

-5.824E'00 

5.878E<00 

-7, 

7B0E-0I 

-7, 

580E-0I 

15 

.95 

3400E-02 

I.S02E*0I 

1 .I38E+0I 

-5.926Ef00 

6.276E+00 

-8 

020E-0I 

-7, 

960E-01 

IE 

1 

.00 

3.200E-02 

1  .S00E*0l 

1 .1S6E*0I 

-6.00BE'00 

6.660E«00 

-8 

020E-01 

-8 

260E-0I 

17 

1 

.05 

2.800E-02 

1 .508E»01 

1 . IS3E+01 

-5.972E»00 

7.066E*00 

-8 

220E-01 

-8 

300E-0I 

18 

1 

.  10 

4.200E-02 

I.S09E*01 

1 . I70E+0I 

-6.064E+00 

7.492E+00 

-8 

680E-0I 

-B 

760E-0I 

19 

1 

.15 

4.000E-02 

1 .S07E+0I 

1 . I74E*0I 

-6.  I08E400 

7.822E»00 

-8 

720E-0I 

-8 

900E-01 

20 

1 

.20 

4.400E-02 

1 .505E»0I 

t . 1 80E+0I 

-6. 1 IBE '00 

8.2I4E«00 

-8 

760E-01 

-8 

980E-0I 

21 

1 

.25 

3.400E-02 

1 .S04E*0I 

1 . I87E+0I 

-6. 1 18E»00 

8.550E*00 

-9 

,020E-0I 

-8 

840E-O1 

22 

1 

.30 

3800E-02 

1 .503E<0I 

1 . 1 9PE+01 

-6. IB0E*00 

8.828E*00 

-B 

820E-0I 

-8 

860E-0I 

23 

1 

.35 

4.800E-02 

1 .503E*0I 

1 .19IE+0I 

-6.I7GE*00 

9. 130E+00 

-8 

880E-0I 

-8 

96OE-0I 

24 

1 

.40 

5.600E-02 

1 .499E+0I 

1 . 19BE+01 

-6. I5SE+00 

9.238E*00 

-8 

900E-0I 

-8 

B20E-0I 

25 

1 

.45 

4.200E-02 

1 .S00E»0I 

1.I92E+01 

-6.  IS4E'00 

9.468E*00 

-8 

640E-0I 

-8 

740E-01 

26 

1 

.50 

4.600E-02 

1 .498E'0I 

1 . I9IE+0I 

-6.I72E*00 

9.624E*00 

-8 

540E-0I 

-8 

.680E-0I 

27 

1 

.55 

3.600E-02 

1 .50IE*0I 

1 . 1 97E+01 

-6.208E<00 

9.748E<00 

-8 

,480E-0t 

-8 

.420E-0I 

28 

1 

.60 

5.200E-02 

1 .495? +01 

1 .201E+0I 

-6.230E+00 

9.790E*00 

-8 

.500E-0I 

-8 

,5B0E-0I 

29 

1 

.65 

4.000E-02 

1 .497E«0I 

1 . 1 99E+0 1 

-G.200E*00 

9.830E»00 

-8 

.  I00E-0I 

-8 

.300E-0I 

30 

t 

.70 

4.000E-02 

1 .497E<01 

1 .207E+0I 

-6.2E4E<00 

9.852E*00 

-8 

.240E-0I 

-8 

400E-0I 

31 

1 

.75 

4.200E-02 

1 . 49SE+0I 

1 .206E*0I 

-6.230E»00 

9.836E+00 

-8 

.I40E-0I 

-8 

.4B0E-0I 

32 

1 

.80 

4.600E-02 

1 .497E*0I 

1 .207E+0I 

-6.334E*00 

9.958E+00 

-8 

.220E-0I 

-8 

.  I60E-0I 

33 

1 

.85 

4.000E-02 

1  .499E*0I 

1 .2I2E+0I 

-6.320E*00 

9.920E+00 

-8 

.  I00E-0I 

-8 

.040E-0I 

34 

1 

.90 

2.600E-02 

1 .S00E+0I 

1 .2ISE»0I 

-6.376E<00 

1 .009E*0I 

-8 

.  I80E-01 

-8 

.  I20E-0I 

35 

2 

.00 

4.400E-02 

1 .497E+01 

1 .2I6E*0I 

-6.33BE+00 

9.99GE+00 

-8 

.  I80E-0I 

-8 

400E-0I 

3B 

2 

.00 

4.600E-02 

1  .495E'0I 

I.22IE+0I 

-E.3GGE*00 

9.9B8E<00 

-8 

.200E-0I 

-8 

.480E-0I 

37 

2 

.05 

4.000E-02 

1 .497E+0I 

1 .22GE+0I 

-6.3G8E<00 

1 .004E»0I 

-8 

,  I80E-01 

-8 

420E-0I 

38 

2 

.10 

4.000E-02 

1.49EE*0I 

I.22EE+0I 

-6.34BE+00 

9.97GE*00 

-8 

1E0E-0I 

-8 

,  IE0E-01 

39 

2 

.15 

4.400E-02 

1 -49SE+0I 

1 .228E+0I 

-6.39EE*00 

t.005E»0l 

-8 

I20E-0I 

-8 

320E-0I 

40 

2 

.20 

3.600E-02 

1  .496E«0I 

I.230E40! 

-6.442E<00 

1 .004E*0 1 

-7 

.9B0E-0I 

-8 

I80E-01 

41 

2 

.25 

3.800E-02 

1 . 495E+0I 

I.230E+01 

-6.458E'00 

9.982E»00 

-8 

.300E-0I 

-8 

220E-0I 

42 

2 

.35 

3.000E-02 

1.497E*0t 

> .238E+0I 

-6.432E*00 

9.952E<00 

-8 

280E-0I 

-8 

340E-0I 

43 

2 

,45 

4.800E-02 

1 .494E»0I 

1 .239E*0I 

-E.456E»00 

9.812E»00 

-8 

.360E-0I 

-8 

E00E-0I 

44 

2 

,55 

3.800E-02 

1 . 495E+0I 

1 . 240E+0I 

-E.5l2Et00 

9.5G8E400 

-8 

.300E-0I 

-8 

3B0E-0I 

45 

2 

65 

2.800E-02 

1 .496E»01 

1 .246E»0I 

-6.480E*00 

9.304E*00 

-8 

.  I20E-01 

-8 

IE0E-0I 

4B 

2 

75 

3.600E-02 

I.496E+01 

1 .24GE*0I 

-6.50BE100 

8.848E»00 

-B 

5O0E-0I 

-8, 

.740E-0I 

47 

2 

,85 

4.000E-02 

1 .493E«0I 

1 .248E*01 

-6.50BE»00 

8.528E400 

-8 

.600E-0I 

-8 

2E0E-0I 

48 

2 

95 

2.B00E-02 

I.495E+0I 

1 .2S4E+0I 

-6.528E«00 

7.9S0E<00 

-8 

,  I60E-0I 

-8 

280E-0I 
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TABLE    B4     ( CONT . ) •       DOWNSTREAM    BLADE-TO-BLADE    SCALED 
PROBE    DATA    FILE    U-4SEPASCL 


scan    9 


-35B8E    Bl 

-J.IME-II 
-3  84BEHI 

-J.KJE-tl 

-s.jieE  «i 

-3  I48E-BI 
-J  «68EHI 
-3  36BE  »l 

-3520EHI 

-35»eE-ii 

-3  SHE  II 
-3.I2H  HI 
-4   (4IE    II 

-4.26BE -»l 
-4.3SBE  HI 
-4.4B0EHI 

-4  268E  II 
-4.32«E  HI 
-4.4SBE    II 

-4.4S8E  HI 
-4.3S8EHI 
-4    IttE-ll 

-3  948E  HI 
-3.320E  HI 
-3  70OE  II 
SB0E-0I 
4P8E  HI 
34IEHI 
3IIEHI 
95IEHI 
KIE  II 
74BE  Bl 
94BE  HI 
-I  B48E  Bl 
•I  BEBE  II 
■I  S68E-0I 
.S68E  Bl 
IBBE  Bl 
7HE  HI 
4GBE  Bl 
S4IE  HI 
.2HE  12 
220E  HI 
380E  II 
B28E  Bl 
-3. 34BE  •! 
-3 . ?4BE  tl 
-3.300EHI 


-IH26EHB 
-9.S88EHI 

7BIE-BI 
740EHI 
920E-0I 
3O0E-0I 
I2BEII 
BBIE-BI 
-9  HIE  II 
-I.54BE  It 
-1  47IE  II 
-J.HBEHI 
-I  I3EEHI 
-I  I74EHI 
-I.  HIE  HI 
-I.I7IEH8 
-I.  IIIE'll 

-i.i«2E'H 

-i  .2i:e'H 

-I  .  IS4E'II 
-l.328E'H 
-I  2I4EH8 
-l.72«Et»l 
-I  I74E<IB 
-I.UBEiM 
-I.IBBE'II 
-I.I84EH0 
-I  .  2I8EIII 
-l.282E»ll 
-I.37BE'!! 
-IS52EH8 
-I.3BBE<I8 
-I.  2 1 IE 'IB 
-I.S44EH8 
-I  S56E 'II 
-I  584F.ll 
-I.378EH0 
-l.486E'H 
-I.2S2EHI 
-I.398EH0 
-I  24BEH* 
-I  SB2EH1 
-I.S42EH0 
-I.472PH 
-I.39BEH* 
-l.4BBEH( 
-I.794EH0 
-I.270EH0 


10 

)  J'.'E'H 
B  SIBEHI 
I.7HEHI 

9  27BE  >f» 
9  738EHI 
9  2IIE'II 
9  238EHI 
9   2  3SEHI 

t  ?i:e<ii 

9  IIIE'll 

I  24IE-II 

I  7S4EHI 

I  SSIEHI 

9  «i:e'H 

I  7 B7 I'll 
I  9S2E'H 

I   B9<EHI 

I  I87EHI 
I  II3EHI 
I  H6E'|l 
I  I22EHI 
I.HSEHI 
I  I77E.II 
l.«22EHI 
IH27EHI 
II3IEHI 
I  I35EHI 
I  .I34E'II 
IH37EHI 
I  H39EHI 
IH36EHI 
IH48EHI 
IH43EHI 
I  |44E'BI 
I  |4SE'8I 
I  I47E-II 
I.052EHI 
I  IS3EHI 
I  IS4FHI 
I    ISJE'll 

i  .ie:e  hi 

I  I64f  HI 
I  IEEE  HI 
I.BEBEHI 
I  IS9EHI 
IH7SEHI 
1.I7IEHI 
I    I78EHI 


tl 


7IBEHI 

I7IEHI 
IG5EH8 
I78EHI 
IKE  HI 
IS4EHI 
I7IEHI 
I24EHI 
I36EHI 
H6EH8 
IIEEHI 
ISSEHI 
.'IIE'll 
-I  442EHI 
-I.SriEHI 
-•(HE  HI 
I  K8EH8 
-I.7I4EH8 
-I  722EHI 
-I    884EHI 

•b.ii:ehi 

-I732EHI 

784EHI 
772EHI 
B2BEHI 
I6BEHI 

82EEH8 
B38EHI 
IS4EIM 

•  92EHI 

9IBEHI 
9  7BEHI 
IIIE'll 
942EH8 
99PEHI 
1 4  BE  HI 
III!'!! 

•  52EHI 

•  BBEH8 

•  58EHI 
8B8EHB 

■7.  II9EHI 
7.I22EHI 
7.  ISPEH8 
7.I86EH0 
7.2I8EHI 
■7.I64IH8 
■7.I9IEHI 


17 

I. HIE  HI 
-I.2BIE  12 
-I.IIIE-12 

4. H0E -13 
-I.H0E-02 
■I.MK-« 
-I.700E   02 

•  .••IE  HI 
-I.2ME   02 

-i  hie  i! 

-I    III!    12 

-I.00IE-07 

I   H IE    8  3 

-I    2IIE   12 

-I   HIE-  13 

•I    HIE    IJ 

-I.4IIE    12 

-••HE    13 

-7.  HIE    12 

-I4HE   12 

I. HIE   (3 

7.  HIE   13 

-7700E   02 

-7.488E    82 

-I.H8E    02 

-I    BflE    12 

-4.HBEH3 

-I   HIE   83 

-••HE   13 

-2.288E    12 

-2.4IIE    12 

4.  HIE    13 

7. HIE   83 

I.  HIE    12 

-I.  HIE    12 

-I. HIE    02 

7   HBE-03 

•   »39EI« 

-I. SHE  H2 

LINE  »3 

4   HIE    13 

-I.000EH3 

-I.488E    02 

-I    HIE    07 

-4. HIE   83 

-4. HOE    83 

-4. CHE   13 

I.  HIE -12 


13 

-».  HIE    13 

I.  HIE -82 
-8   HIE    83 

•  H8EH3 
7.  HBE -83 

-I. HIE  13 
-I.  HIE   12 

C  It IE  83 
-2.H0E  07 
-4   H8E   83 

7.H8EH3 
-I.400E  02 
-I.H8E  H2 
-E  HIE  13 
-4. HIE   13 

I    IKE    II 

•  HIE  (3 
-2.IHE  C3 
-I.488EB2 
-4   HIE   13 

4.  HIE  13 
4.H0E  03 
■I  IIP!  IJ 
-I  SHE  02 
-7.00BE  H3 
-I. SHE  »2 
-B.H0EH3 

-I.208E  02 

-I.288E  02 

-8.II8E  13 

-I.2IBE  02 

BBIE  03 

880E  03 


4 
-7. 

I.4HE   02 


I.40OEH2 
3.208EH2 
I.488EH2 
I.IIK-H 
I  20OE  02 
B  H8EH3 
7 HUE  83 
4.008E   13 

1  480EH2 
4   HBE    »3 

2  HOE  03 
E. HIE  03 
8  leer  13 

2. HIE    13 


14 

•  .HIE  HI 
I. HIE   83 

-I.8I8E    82 

1  <  HE    12 

2  leiE  13 
-3.H0EH2 
-I. HBE  «2 
•I    HIE    I! 

2HE  C2 
HBEHt 
•HE  (3 
CHE-C3 
4IIE-I2 
HBE-B3 

•  B8EH3 
HIE  13 
•8BE-B3 
•BIE  83 
2IBE  12 
HIE    13 

•  HE  83 
•HE  H3 

-4»8IE   13 

-I.7BBE   12 

S.HIE   C3 

-I2BBE   «2 

•  •HEH« 

-I.2BBE   «2 

•  HBEH3 

-BH88E  13 
-I.2BBE  H2 
-I.SBBEI2 


HBE 'IB 
.HBE  HI 
.2ME-6! 

HBE  H3 

2HE   «2 

HBBE   B3 

888EH2 

•BBE-V3 

BB8E-83 

888E    B3 

-I.6BBE   82 

-2.880EB3 

-4.HCE   B3 

-I    48BEH2 

-4.CNE-I3 

-8.888F    13 


DE« 

2.H7EHI 
2  IIIE'll 
7.H7EHB 
I.763EHB 
I.757EH* 

2  II4FHI 
7.7E4EH6 
7.2S8EHB 
7.S3IEHB 

.B24EHB 
.7BBEHB 
7BBEHB 
.•2SEHI 
.29EEHB 
775EHI 
3SS4EHB 
3.SSBEHB 
54PE 'II 
.SSBE'H 
294EHI 
28IEHB 
2B4EHB 
29GEHB 
2B5EH8 
29GEHI 

3  C23EHB 
3.«39E»»B 

3   IIIE'll 

3.B24EH8 

3B3SEH8 

3H3BEH8 

7.776EH8 

2.772EHB 

2.782EHB 

7.778EH8 

.773EH8 

.7BIEHB 

.787EH8 

.77IEHB 

.78IEH8 

.53EEHB 

S27EHB 

.537EHB 

.257EH8 

2.27BEH8 

7H27EHB 

I.7SIEHB 

I.78BEHB 


TEMP 
IRI 
4.SS7EH2 
.SSEEH2 
SSSEH2 
.55BEH2 
S5SEH2 
5SSEH2 
.S5BEH2 
SSSEH2 
.SSEEH2 
55GEH2 
S5EEH2 
5S7EH2 
SS7EH2 
5S7EH2 
4.SS7EH2 
4.55BEH2 
4  5S8E  H2 
4.SSBEH2 
4.SS7EH2 
4.SSSEH2 
4.SS7EH2 
4.558EH2 
4.S5SEH2 
4.5S9EH2 
4.5S9EH2 
4.SS9EH2 
4.SS9EH2 

4.55BEH2 

4   SBBEH2 

4.SS9EH2 

4. SSBE'H 

4.S5BEH2 

4  5SBEH2 

4.5S8EH2 

4.SS9EHZ 

4.SEIEH2 

S62EH2 

.S67E  H2 

S6IEH2 

.5B8EH2 

SSIEH2 

5EIEH2 

S6IEH2 

.SEIEH2 

4.568EH2 

4.SSIEH2 

4.SSIEH2 

4.SSIEH2 


A1M0S 
PRESS 
485. 2* 

415  21 
415  28 
415  28 
465.2* 
415  28 
485  21 
415  28 
405. 2B 
415  28 
4C5.20 
415  21 
485  28 
415  21 
48S  28 
485  21 
415  28 
485  21 
4BS.2B 
4B5.2B 
485.28 
485  21 
IBS. 29 
415  28 
4B5.2B 
405.2* 
405.20 

405.20 

105.20 
485.20 
48S.28 
485.20 
405.20 
405.20 
405  20 
405.20 
405.20 
405. 20 
405.20 
405.20 
485  20 
405  20 
405  20 
405.20 
485.28 
4e5  28 
405  28 
405.20 


146 


TABLE  B5.   DOWNSTREAM  BLADE-TO-BLADE  REDUCED  PROBE 

DATA  FILE  U-4SEPACALC 


CAN 

Vel 

Vref 

Q 

Qref 

MACH 

YAW 
DEG 

1 

1 .673E+02 

2.032E+02 

7.277E400 

I.078E+0I 

1  .603E-0I 

2.007E+00 

2 

1 .640E+02 

2.026E+02 

6.992E+00 

1 .07IE+0I 

1 .57IE-0I 

2.0I0E+00 

3 

1 .560E402 

2.0I9E+02 

G.332E+00 

1 .064E+0I 

1 .495E-0I 

2.007E+00 

4 

1 .504E+02 

2.0I9E+02 

5.880E+00 

1  .0S4E  +01 

1 .440E-0I 

1 .763E+00 

5 

\ .446E+02 

2.0I7E+02 

5.434E+00 

1 .062E+0I 

I.385E-0I 

1 .757E+00 

6 

I.409E+02 

2.0I7E+02 

5. I57E+00 

1 .062E+0I 

1 .349E-0I 

2.004E+00 

7 

1 .405E+02 

2.0I6E+02 

5. I30E+00 

1 .06IE+0I 

I.346E-0I 

2.264E+00 

8 

1.403E+02 

2.0I5E+02 

S.I I2E+00 

1 .0G0E+0I 

1 .343E-0I 

2.258E+00 

9 

1 .406E+02 

2.0I3E+02 

5. I35E+00 

I.058E+0I 

1 .34BE-0I 

2.53IE+00 

10 

1 .423E+02 

2.0I4E+02 

5.260E+00 

1 .059E+0I 

1 .363E-0I 

2.624E+00 

II 

1 .440E*02 

2.0I7E402 

5.384E+00 

I.062E+0I 

1 .379E-0I 

2.7B8E+00 

12 

I.4G8E+02 

2.0I8E+02 

5.598E+00 

1 .063E+0I 

1 .40GE-0I 

2.780E400 

13 

1 .5I6E+02 

2.048E+02 

5.974E+00 

1 .095E+0I 

1 .452E-0I 

3.02GE400 

14 

1 .564E+02 

2.068E+02 

G.359E+00 

1 . 1 I7E+0I 

1 .498E-0I 

3.296E+00 

15 

1 .6I3E+02 

2.077E+02 

6.759E+00 

1 . I27E+0I 

1 .545E-0I 

3.275E400 

IG 

I.656E+02 

2.094E+02 

7. I25E+00 

1 .I44E+0I 

I.586E-0I 

3.554E+00 

17 

1 .700E+02 

2. I00E+02 

7.51 IE  +  00 

1.151 E+01 

1 .628E-0I 

3.550E+00 

18 

1 .747E+02 

2. I06E+02 

7.939E+00 

1 . I58E+0I 

1 .674E-0I 

3.540E+00 

19 

1 .780E+02 

2. 1 I0E+02 

B.245E+00 

1 . I62E40I 

1 .706E-0I 

3.5S6E+00 

20 

1 .8I8E+02 

2. 1 I5E+02 

8.60IE+00 

1 . I68E+0I 

1 .742E-0I 

3.294E+00 

21 

I.850E+02 

2. I2IE+02 

B.9I IE+00 

1 . I75E+0I 

1 .773E-0I 

3.28IE+00 

22 

1 .875E+02 

2.I23E+02 

9. I55E+00 

1 . I77E+0I 

1 .797E-0I 

3.284E+00 

23 

1 .903E+02 

2. I25E+02 

9.435E+00 

1 . I79E+0I 

1 .B25E-0I 

3.29GE+00 

24 

U9I3E  +  02 

2. I20E+02 

9.528E+00 

1 . I74E+0I 

1 .834E-0I 

3.285E+00 

25 

1 .932E*02 

2. I2SE+02 

9.72IE+00 

1 . I79E+0I 

1 .B52E-0I 

3.296E+00 

26 

1  .945E  +  02 

2. I25E+02 

9.855E+00 

1 . I78E+0I 

1 .865E-0I 

3.023E+00 

27 

1 .954E+02 

2. I30E+02 

9.953E+00 

1 . I85E+0I 

1 .874E-0I 

3.039E+00 

28 

1  .959E  +  02 

2. I34E+02 

9.998E+00 

1 . IB9E+0I 

1 .B78E-0I 

3.04IE+00 

29 

1 .960E+02 

2.I32E+02 

1 .000E+0I 

1 . I87E+0I 

1 .B79E-0I 

3.024E+00 

30 

I.963E+02 

2. I39E+02 

1 .004E+0I 

1 . I95E+0I 

1 .882E-0I 

3.036E+00 

31 

1 .96IE+02 

2. I38E+02 

1 .002E+0I 

1 . I94E+0I 

1 .B80E-0I 

3.03GE+00 

32 

I.970E+02 

2.I39E+02 

1 .012E+0I 

1 . I95E+0I 

1 .889E-0I 

2.77GE+00 

33 

I.966E+02 

2. I43E+02 

1 .007E+0I 

1 . I99E+0I 

1 .885E-0I 

2.772E+00 

34 

1  .98IE402 

2. I46E+02 

1 .023E+0I 

1 .203E+0I 

1 .900E-0I 

2.782E+00 

35 

l.975E-»02 

2.I47E+02 

1 .0I6E+0I 

1 .203E+0I 

1 .893E-0I 

2.778E+00 

36 

1 .975E+02 

2. I5IE+02 

1 .0I6E+0I 

1 .208E+0I 

1 .893E-0I 

2.773E+00 

37 

1 .979E+02 

2.I56E+02 

1 .020E+0I 

I.2I3E+0I 

1 .B97E-0I 

2.78IE+00 

38 

1 .973E+02 

2. I56E+02 

I.0I3E+0I 

1 .2I3E+0I 

1 .89IE-0I 

2.787E+00 

39 

1 .979E+02 

2.I58E+02 

1 .020E+0I 

1 .2I5E+0I 

1 .897E-0I 

2.77IE+00 

40 

1  .977E+02 

2.I59E+02 

1 .0I9E+0I 

1 .2I7E+0I 

1 .896E-0I 

2.7B4E+00 

41 

1 .974E+02 

2.I59E+02 

1 .0I5E+0I 

1 .2I7E+0I 

1 .892E-0I 

2.536E+00 

42 

1 .97IE+02 

2.I66E+02 

1 .0I2E+0I 

1 .225E+0I 

1 .B90E-0I 

2.527E+00 

43 

1 .960E+02 

2.I66E+02 

1 .00IE+0I 

1 .225E+0I 

1 .B80E-0I 

2.537E+00 

44 

1 .938E+02 

2. I67E+02 

9.778E400 

1 .226E+0I 

1 .857E-0I 

2.257E+00 

45 

1 .9I2E402 

2. I73E+02 

9.520E+00 

I.232E+0I 

1 .833E-01 

2.270E+00 

46 

1 .87SE+02 

2.I73E+02 

9. I5IE+00 

1 .233E+0I 

1 .797E-0I 

2.023E+00 

47 

1 .844E+02 

2.I75E+02 

B.846E+00 

1 .235E+0I 

1 .767E-0I 

1 .75IE400 

48 

1 .787E+02 

2.I80E+02 

8.302E+00 

1 .240E+0I 

1 .7I2E-0I 

1 .768E+00 

49 

1 .762E+02 

2.18IE+02 

B.075E+00 

1 .242E+0I 

I.688E-0I 

1 .770E+00 
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TABLE  B5  ( CONT . ) .   DOWNSTREAM  BLADE-TO-BLADE  REDUCED 
PROBE  DATA  FILE  U-4SEPACALC 


iCAN 

PRB 

BETA 

6AMMA 

PHI 

Xvel 

Xref 

POSIT 

1 

0.00 

I.B53E-02 

B.853E-02 

-4.1ME-03 

7.148E-02 

8.684E-02 

2 

.10 

1.779E-02 

8.983E-02 

-4.764E-03 

7.008E-02 

8.658E-02 

3 

.20 

1 .6I0E-02 

1 .0I8E-0I 

-1  .I02E-02 

6.67IE-02 

8.630E-02 

4 

.30 

1.493E-02 

9.524E-02 

-7.663E-03 

6.429E-02 

8.628E-02 

5 

.40 

1.381E-02 

1 .002E-01 

-1  .043E-02 

6.  I81E-02 

8.62IE-02 

6 

.50 

! .3I3E-02 

I.070E-0I 

-I.4I3E-02 

6.022E-02 

8.620E-02 

7 

.55 

I.304E-02 

9.654E-02 

-8.6I9E-03 

6.007E-02 

8.6I7E-02 

e 

.60 

I.30IE-02 

I .054E-0I 

-I.327E-02 

5.996E-02 

8.6I3E-02 

9 

.65 

I.307E-02 

1 .042E-0I 

-I.263E-02 

6.010E-02 

8.605E-02 

10 

.70 

1.336E-02 

9.202E-02 

-6.184E-03 

6.082E-02 

8.6I0E-02 

1  1 

.75 

I.369E-02 

1 .029E-0I 

-1.I86E-02 

6.I53E-02 

8.622E-02 

12 

.60 

I.423E-02 

1 .027E-0I 

-1 . I67E-02 

6.274E-02 

B.624E-02 

13 

.85 

1 .5I9E-02 

1 .013E-0I 

-1 .083E-02 

6.480E-02 

8.752E-02 

14 

.90 

1 .6I7E-02 

9.7S0E-02 

-8.7G7E-03 

6.686E-02 

8.838E-02 

15 

.95 

1 .7I9E-02 

9.498E-02 

-7.432E-03 

6.B92E-02 

B.878E-02 

16 

1 

.00 

1 .8I5E-02 

9.660E-02 

-8.275E-03 

7.075E-02 

8.947E-02 

17 

1 

.05 

1 .914E-02 

8.667E-02 

-3.I76E-03 

7.263E-02 

8.973E-02 

18 

1 

.  10 

2.027E-02 

B.728E-02 

-3.539E-03 

7.466E-02 

8.999E-02 

19 

1 

.  15 

2.I07E-02 

8.687E-02 

-3.363E-03 

7.607E-02 

9.0I7E-02 

20 

1 

.20 

2.200E-02 

7.894E-02 

6.477E-04 

7.768E-02 

9.036E-02 

21 

1 

.25 

2.262E-02 

9.446E-02 

-7.283E-03 

7.906E-02 

9.065E-02 

22 

1 

.30- 

2.346E-02 

8.278E-02 

-I.35IE-03 

8.0I3E-02 

9.074E-02 

23 

1 

.35 

2.4I9E-02 

8.302E-02 

-1  .469E-03 

8. I33E-02 

9.080E-02 

24 

1 

.40 

2.443E-02 

7.724E-02 

1 .466E-03 

8.I73E-02 

9.059E-02 

25 

1 

.45 

2.493E-02 

7.817E-02 

1 .007E-03 

8.254E-02 

9.08IE-02 

2G 

1 

.50 

2.528E-02 

7.9I6E-02 

5.I3IE-04 

8.3I0E-02 

9.077E-02 

27 

1 

.55 

2.553E-02 

7.892E-02 

6.459E-04 

8.35IE-02 

9. 103E-02 

28 

1 

.60 

2.565E-02 

8.306E-02 

-I.447E-03 

8.370E-02 

9.1 I8E-02 

29 

1 

.65 

2.566E-02 

8.I88E-02 

-8.475E-04 

B.372E-02 

9.1 10E-02 

30 

1 

.70 

2.574E-02 

7.3I9E-02 

3.562E-03 

8.386E-02 

9. I40E-02 

31 

1 

.75 

2.570E-02 

1 .264E-0I 

-2.334E-02 

8.378E-02 

9. I36E-02 

32 

1 

.80 

2.596E-02 

9.390E-02 

-6.922E-03 

8.420E-0Z 

9. I39E-02 

33 

1 

.85 

2.584E-02 

8.539E-02 

-2.6I9E-03 

8.401E-02 

9. I56E-02 

34 

1 

.90 

2.625E-02 

1 .247E-0I 

-2.247E-02 

8.467E-02 

9. I70E-02 

35 

1 

.95 

2.607E-02 

1 .29IE-0I 

-2.47IE-02 

8.436E-02 

9. I72E-02 

36 

2 

.00 

2.607E-02 

1 .292E-01 

-2.473E-02 

8.437E-02 

9. I89E-02 

37 

2 

.05 

2.6I7E-02 

9.404E-02 

-6.975E-03 

B.454E-02 

9.20BE-02 

38 

2 

.  10 

2.599E-02 

9.I73E-02 

-5.82IE-03 

8.426E-02 

9.209E-02 

39 

2 

.  15 

2.E18E-02 

9.126E-02 

-5.569E-03 

8.455E-02 

9.2I8E-02 

40 

2 

.20 

2.6I3E-02 

9.622E-02 

-8.083E-03 

8.447E-02 

9.224E-02 

41 

2 

.25 

2.603E-02 

9.I97E-02 

-S.938E-03 

8.432E-0Z 

9.222E-02 

42 

2 

.35 

2.597E-02 

1 . 400E-0I 

-3.020E-02 

8.422E-02 

9.252E-02 

43 

2 

.45 

2.569E-02 

1 .426E-0I 

-3.I51E-02 

8.376E-02 

9.255E-02 

44 

2. 

55 

2.508E-02 

9.057E-02 

-5.27BE-03 

8.278E-02 

9.259E-02 

45 

2 

,65 

2.44IE-02 

1 . I2IE-0I 

-1  .6I9E-02 

8.I69E-02 

9.282E-02 

4G 

2. 

75 

2.345E-02 

1 .098E-0I 

-1  .S06E-02 

8.0I0E-02 

9.282E-02 

47 

2. 

,85 

2.265E-02 

1 .035E-0I 

-1 .I88E-02 

7.877E-02 

9.290E-02 

48 

2. 

95 

2. I23E-02 

I.072E-0I 

-1 .374E-02 

7.633E-02 

9.31 IE-02 

49 

3. 

00 

2.064E-02 

1. I05E-0I 

-1 .547E-02 

7.528E-02 

9.3I9E-02 
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TABLE  B5  (CONT.)-   DOWNSTREAM  BLADE-TO-BLADE  REDUCED 
PROBE  DATA  FILE  U-4SEPACALC 


SCAN 

Pref-Pt/Qre 

1 

3.G50E-0) 

2 

3.889E-0I 

3 

4.490E-0I 

4 

4.919E-0I 

5 

5.33IE-0I 

6 

5.584E-0I 

7 

S.628E-0I 

8 

5.G33E-0I 

9 

5.G32E-01 

10 

S.527E-0I 

1  1 

5.417E-0I 

12 

5.238E-0I 

13 

5.0G2E-0I 

14 

4.634E-01 

15 

4.529E-01 

1G 

4.282E-0I 

17 

3.9G3E-0I 

18 

3.63IE-0! 

19 

3.374E-0I 

20 

3.0G8E-01 

21 

2.827E-0I 

22 

2.G0GE-0I 

23 

2.3GIE-0I 

24 

2.232E-01 

25 

2.07GE-0I 

26 

1 .937E-01 

27 

1 .879E-01 

28 

1 .87IE-01 

29 

1 .822E-01 

30 

1 .860E-0I 

31 

1 .8G5E-01 

32 

1 .770E-01 

33 

1 .833E-0I 

34 

1 .7I8E-0I 

35 

1 .799E-0! 

3G 

1 .837E-0I 

37 

1 .83IE-0I 

38 

1 .883E-01 

39 

1 .840E-0I 

40 

1 .85GE-0I 

41 

1 .902E-0I 

42 

I .98IE-0I 

43 

2.I0IE-0I 

44 

2.306E-0I 

45 

2.559E-0I 

4G 

2.93IE-0I 

47 

3.20IE-0I 

48 

3.700E-01 

49 

3.9I2E-01 

ENSEMBLE  AVERAGES 


PAUG 

PAAVG 

TEMPAVG 

XREFAUG 

VREFAV6 

QREFAVG 

1  .  I72E  +  0I 

4P5.20E+00 

455.84 

9.007E-02 

2. I08E+02 

1 . IG0E+0 
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TABLE  B6.   BLADE  SCALED  DATA  FILE  B-4SEPASCL 


FROBE  DATA  ASSOCIATED  WITH  THE  BLADE  DATA  IS  CONTAINED 
IN  FILE:   L-4SEFASCL 


SCAN:       31 

5CANIVALVE 

FRESS  (INCI 

FORT 

1 

8.00OE-03 

2 

I.4B7E+0I 

3 

1 .284E+01 

4 

-3.614E+00 

5 

-1 .134E+00 

B 

2 . 366E-0 1 

7 

8.E00E-0I 

B 

9.520E-01 

9 

9.200E-01 

ie 

6.640E-01 

ii 

9.020E-01 

12 

6 . S86E-P 1 

13 

1 . 6O2E+B0 

14 

I.64SE+00 

15 

2.426E»00 

16 

2. 182E+00 

17 

1 .432E+00 

IS 

1 .B12E+00 

19 

2 . 356E+BB 

28 

4.026E+00 

21 

4.906E+0S 

22 

7. 336E+B0 

23 

-1 -924E+0I 

24 

-3.49BE+01 

25 

-3 . 382Ef0l 

26 

-2. 366E+01 

27 

-2.22IE+01 

28 

-1 .806E+01 

29 

-1 .43SE+01 

36 

-1 .364E+0I 

31 

-1 . 165E+8I 

32 

-8.656E+00 

33 

-7 . 204E+00 

34 

-5.974E+60 

35 

-5.2I4E+B0 

36 

-4 . 570E  +B0 

37 

-4 . 660E+O0 

3B 

-3 . 90BE+00 

39 

-3.71 BE+00 

40 

-3.562E+00 

41 

-3.254E+00 

42 

-3. 15BE+00 

43 

-7. I60E-BI 

44 

-9.750E+00 

45 

-3.58SE+60 

46 

1  .6I2E  +  00 

47 

9.8B0E-01 

4B 

-2.B96E+60 
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TABLE  B7.   BLADE  REDUCED  DATA  FILE  B-4SEPACALC 


SCANIVALUE 

MASS  AVERA6E0  COEFFICIENT 

PORT 

OF  PRESSURE 

4 

2.I33E-0I 

5 

3.507E-0I 

6 

4.263E-0I 

7 

4.612E-0I 

8 

4.663E-0I 

9 

4.646E-0I 

10 

4.5I5E-01 

1  1 

4.636E-0I 

12 

4.5I3E-0I 

13 

4.69IE-0I 

14 

5. 1E0E-0I 

IS 

5.48IE-0I 

16 

5.345E-0I 

17 

4.957E-0I 

ie 

5. I40E-0I 

19 

5.463E-0I 

20 

6.367E-0I 

21 

6.854E-0I 

22 

8.20IE-0I 

23 

-6.524E-0I 

24 

-1 .525E400 

25 

-1 .460E+00 

26 

-1 .230E+00 

27 

-8. I71E-0I 

28 

-5.8E9E-0I 

29 

-4. I53E-0I 

30 

-3.092E-0I 

31 

-1 .986E-0I 

32 

-6.606E-02 

33 

1 .440E-02 

34 

8.255E-02 

35 

1 .247E-0I 

36 

1 .604E-0I 

37 

1 .886E-0I 

38 

1 .971E-0I 

39 

2.077E-0I 

40 

2. I95E-0I 

41 

2 . 333E-0I 

42 

2.386E-0I 

43 

3.739E-01 

44 

-1 .267E-0I 

45 

2. 149E-0I 

46 

5.029E-0I 

47 

4.682E-0I 

48 

2.531E-CI 
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2 .  RETURN 

3 .  Press  LOAD 

4.  Type  INITFLEX   between  quotation  marks.   [The  root 
directory  based  INITFLEX  program  formats  the  disc] 

5 .  RETURN 

6.  Press  RUN 

7.  Follow   the   prompts — the   process   takes   a   few 
minutes . 

Once  the  disc  is  formatted,  it  can  be  used  to  back  up 
files.  To  load  the  root  directory-based  BACKUP  program, 
use  the  following  steps: 

1.  Type  MSI"/" 

2 .  RETURN 

3.  Press  LOAD 

4 .  Type  BACKUP  between  quotation  marks 
b .  RETURN 

6.  Press  RUN 

7.  Press  SELECT.   [The  arrow  indicator  will  be  at  the 
desired  position  i.e.,  "Backup  selected  files."] 

8.  Type  /CLASSICK/DESIRED  SUBDIRECTORY/^ : CS80 , 700 

9 .  RETURN 

10.  Press  PROCEED.   [Use  arrow  keys  to   move  indicator 
to  flexible  disc  option. ] 

11.  Press  SELECT 

12.  Press  YES.   [Note  the  caution] 

The  backup  process  proceeds  to  completion,  displaying  each 
file  transferred  to  the  flexible  disc.  If  there  are  too 
many  files   for  one   disc,  a   prompt  for  an  additional  disc 
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will  be  displayed.   Note  that  the  files  generated  by  "CALC" 

consume  a  lot  of  disc  space.   Upon  completion, 

13.  Press  UNLDTAPE 

14.  Press  DONE 

B . 9   RECOMMENDATIONS 

The  method  of  obtaining  probe  survey  data  can  be 
improved  upon  by  making  changes  to  the  three  main  programs 
and  including  software  additions.  Changes  to  the  programs 
will  provide  higher  guality  data,  reduce  the  chance  of 
erroneous  entries  and  make  computations  more  efficient. 
Software  additions  will  enhance  data  recovery  and  reduce 
the  chance  of  mistakenly  deleting  data  files.  Specific 
recommendations  are: 

1.  Improve  the  existing  DVM  error  trap.  Occasional 
surges  in  the  facilitie's  power  supply  cause  spurious 
.DVM  readings.  Spurious  DVM  readings  are  trapped  by  the 
Maxdif  variable  on  line  91  of  "ACQUIRE"  and  the  IF-THEN 
structure  in  the  subprogram  "Readdvm".  The  existing 
trap  is  adequate  for  Scanivalve  port  readings  but  not 
for  yaw  transducer  readings.  A  separate  Maxdif  value, 
and  incorporation  into  "Readdvm" ,  is  required  for  the 
yaw  transducer.  Alternately,  a  subroutine  to 
statistically  analyze  and  reject  spurious  DVM  readings 
could  be  added  to  "Readdvm",  [A  more  extensive  but 
permanent  solution  is  to  rectify  the  power  surge 
problem . ] 
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2.  Dynamically  size  the  CALC  array  in  program  "CALC." 
This  is  done  in  "ACQUIRE"  with  the  Rawdat  and  Scaled 
arrays.  Dynamic  sizing  would  reduce  the  amount  of  disc 
space  the  reduced  data  files  from  "CALC" consume . 

3.  Eliminate  the  need  in  "ACQUIRE"  for  scan  number  and 
position  entries  by  the  user  for  each  data  point.  For 
repetitive  surveys  with  a  known  number  of  data  points 
and  probe  displacement  interval,  a  data  file  could  be 
used  to  supply  those  values. 

4.  Combine  "CALC"  and  "LOSS."  The  AYDR  and  loss 
coefficient  could  be  calculated  within  the  structure 
that  calculates  C  .  While  this  would  eliminate  one 
program,  it  would  complicate  the  structure  of  "CALC" 
somewhat  and  make  the  structure  more  difficult  for  a 
new  user  to  grasp. 

5.  Create  a  subdirectory  for  the  scaled  data  files 
from  "ACQUIRE."  This  would  eliminate  the  clutter  of 
files  in  the  REDDATA  subdirectory,  and  make  the  file 
system  consistent  with  the  distinction  that  program 
"CALC"  makes  between  scaled  and  reduced  data  files.  A 
cluttered  file  system  increases  the  chances  of  losing  a 
valuable  file  during  a  purge.  This  addition  would 
require  change  to  the  MSI  statements  on  lines  130,  374, 
581  and  763  in  "ACQUIRE"  and  line  130  in  "CALC."  A  MSI 
"/CLASSICK/REDDATA"   would   have   to  be  inserted  before 
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line  134  to  allow  access  to  the  probe  coefficients  file 
stored  in  the  subdirectory  READDATA. 

6.  Develop  a  program  to  print  a  tabulation  of  the  data 
stored  in  the  scaled  data  files.  This  tabulation 
should  duplicate  the  format  in  "ACQUIRE."  The  program 
can  be  produced  by  appropriate  additions  and  deletions 
to  "ACQUIRE"  since  the  formatted  print  statements 
already  exist.   [See  Chapter  11,  Ref.  13.] 

BIO.   FOR  THE  USER  -  SUMMARY  OF  PROGRAM  STEPS 

All  commands   except  RETURN   are  executed  by  pressing 

the  set  of  keys  fl   -   f8   corresponding   to   the   soft  key 

labels  appearing   at  the   bottom  of   the  screen.   RETURN  is 

the  key  found  on  the  main  keyboard. 

The  following  is  a  summary  of  program  steps: 

1.  DVM,  Scanner  and  Scanivalve  Controller — ON 

2.  Disc  Drive — ON 

3.  Disc  Drive  Amber  Lights — EXTINGUISHED 

4.  Computer,  Monitor  and  Printer — ON 

5.  LOAD  "/CLASSICK/PROGS/ACQUIRE" 

6 .  RETURN 
7  .  RUN 

8.  Type  raw  data  file  name  for  probe  survey  without 
quotation  marks. 

9 .  RETURN 

10.  Type  scaled  data  file  name  for  probe  survey. 

11.  RETURN 


155 


12.  Type  atmospheric  pressure  in  inches  Hg. 
i  3 .  RETURN 

14.  Press  ONE  PROBE  or  TWO  PROBES 

15.  Type  scan  number  and  probe  position.  For  two  probe 
option,  type  scan  number,  lower  probe  position  and 
upper  probe  position. 

16.  RETURN 

17.  Press  REPEAT  or  RECORD 

[REPEAT  returns  prompt  for  scan  number  and  position 
of  data  point  to  be  repeated.  Record  stores  data  to 
the  file.  ] 

18.  Press  GO  ON  or  END  PRB  DATA 

(GO  ON,  returns  prompt  for  scan  number  and  probe 
position  of  next  data  point.  END  PRB  DATA  terminates 
probe  data  collection.] 

19.  Press  GO  ON  or  COLLECT 

[GO  ON,  by-passes  blade  data  collection  and  returns 
print  option  prompts  (Step  20).  COLLECT,  returns 
prompt  for  raw  blade  data  file  name.] 

a.  Type  raw  blade  data  file  name 

b.  RETURN 

c.  Type  scaled  blade  data  file  name 

d .  RETURN 

e .  Press  REPEAT  or  RECORD 

[REPEAT,   repeats   the    blade    pressure   scan 
RECORD,  stores  data  to  the  file.] 

20.  Follow  the  print  option  prompts 

Note  that   this  is   the  only  time  to  obtain  a  hard 
copy  of  the  raw  and  scaled  probe  and  blade  data. 

21.  Press  GO  ON  or  CALC 

[GO  ON,  Terminates  "ACQUIRE"] 
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Note  that  "CALC"  can  be  executed  later  by  the 
command:  LOAD  "/CLASSICK/PROGS/CALC"  CALC,  Loads  and 
executes  "CALC" ] 

22.  Type  the  scaled  probe  data  file  name  created  in 
"ACQUIRE." 

23.  RETURN 

24.  Type  the  probe  calibration  coefficient  file  for  X 
(velocity) . 

25.  RETURN 

26.  Type  the  probe  calibration  coefficient  file  for 
Phi  (pitch) . 

2  7 .   RETURN 

28.  Press  ONE  PROBE  or  TWO  PROBES 

[TWO  PROBES,  will  prompt  the  user  for  the   upper 
probe  calibration  coefficient  files  for  X  and  Phi] 

29.  Type  the  file  name  for  the  data  to  be  reduced 
from  the   scaled  data   file.    For  two  probes,  a  second 
scaled  data  file  name  is  required. 

30.  RETURN 

31.  Press  REDUCE  DATA  after  amber  light  quits 
blinking . 

32.  Press  GO  ON  or  BLADE  Cp's. 

[GO  ON,  returns  prompt  to  load  "LOSS"  (step  33) 
BLADE  Cp's,  prompts  for  scaled  blade  data  file  name.] 

a.  Type  blade  scaled  data  file  name 

b .  RETURN 

c.  Type  the  file  name  for  the  data  to  be  reduced 
from  the  scaled  data  file. 

d .  RETURN 

e.  Type  scan  number  associated  with  lower   limit 
of   integration    of   probe   lower   blade-to-blade 
survey. 

f .  RETURN 
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g.   Type  scan  number  associated  with  higher  limit 
of   integration    of   probe   lower   blade-to-blade 
survey . 

h .   RETURN 

i.   Press  BLADE  DATA  after  amber  light  quits 
blinking. 

33.  Press  GO  ON  or  LOSS 

a.  GO  ON  terminates  "CALC" .  Note  that  "LOSS"  can 
can  be  executed  later  by  the  command: 

1.  LOAD  "/CLASSICK/PROGS/LOSS" 

2.  LOSS,  loads  and  executes  "LOSS" 

b.  Note  that  "LOSS"  requires  upper  and  lower 
probe  blade-to-blade  survey  reduced  data  file 
names .  ] 

34.  Type  the  lower  probe  blade-to-blade  survey  reduced 
data  file  name. 

35.  RETURN 

36.  Type  the  upper  probe  blade-to-blade  survey  reduced 

data  file  name. 

3  7 .   RETURN 

38.  Type  the   scan  number  corresponding  to  the  lower 
limit  of  integration  for  the  lower  probe  survey. 

39.  RETURN 

40.  Type  the  scan  number  corresponding  to  the  higher 
limit  of  integration  for  the  lower  probe  survey. 

4 1 .  RETURN 

42.  Repeat  for  upper  probe  survey. 

[Note  that  integration  interval  for  both  upper  and 
lower  probes  must  be  exactly  equal  even  though  the  scan 
number  entries  may  not  be  the  same. ] 

43.  Program  "LOSS"  terminates   after  static  pressure 
rise  coefficient,  AVDR  and  loss  coefficient  are  printed 
to  the  screen. 
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APPENDIX  C 
PROBE  YAW  ANGLE  REFERENCING 

Two  methods  can  be  used  to  relate  yaw  angle  measured  using 
the  angle  vernier  (or  electrical  equivalent),  to  the  locus  of 
the  leading  edges  of  the  cascade.  Both  make  use  of  a  digital 
precision  inclinometer  which  measures  angles  to  the  horizon- 
tal with  a  resolution  of  0.1°.  A  flat  bar  must  be  attached 
firmly  to  the  probe  shaft. 

C.l   FREE- JET  METHOD 

Step  1  Mount  the  probe  in  the  free-jet  from  the  N  side 
as  shown  in  Figure  CI  (a)  . 

Balance  the  probe  pneumatically. 

Read  the  angle  of  the  bar  (to  horizontal)  using 
the  inclinometer  (A1)  . 

Step  2  Mount  the  probe  in  the  free-jet  from  the  S  side 
as  shown  in  Figure  CI  (b)  . 

Balance  the  probe  pneumatically. 

Read  the  angle  of  the  bar  (to  horizontal)  using 
the  inclinometer  (A2)  . 

Step  3  If  Aq  is  the  angle  of  the  probe  pneumatic  axis 

(P. A.)  to  the  surface  of  the  bar,  and  8j  is  the 
inclination  of  the  free-jet  to  the  horizontal, 
then 

Ax  =  Aq  -  8j 

and 

A2  =  Aq  +  8j. 
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Hence 


A  = 
o 


A  +A 
_J L 


Step  4  Mount  the  probe  on  the  cascade  on  the  N  side  as 
shown  in  Figure  CI  (c)  . 

Read  the  vernier  when  the  bar  is  horizontal  (Ph) 

Then,  the  angle  of  the  pneumatic  axis  to  the 
vertical 

Ppa  -  90  -  A0  . 

Angle  of  the  pneumatic  axis  to  the  normal  to  the 
locus  of  the  leading  edges 

P'pa  =  Ppa  "  5B  =  90  -  Aq  -  5B  . 

Rotate  probe  to  balance  in  the  flow.  Read  the 
venier  (Pf) . 

The  flow  angle,  related  correctly  to  the  normal 
to  the  locus  of  the  leading  edges,  is  given  by 

P  =  P'pa  +  (Pf  -  Ph) 

=  90°  -  A0  -  8B  +  (Pf  -  Ph) 


C.2   LDV  (IN  SITU)  METHOD 

Mount  the  probe  and  balance  at  a  point  where  Pi  is  known 
from  LDV  measurements.  Read  the  vernier  (Pn)  •  Turn  the  bar  to 
horizontal.  Read  the  vernier  (Ph) 

then        P'pA  -  Pi  -  <pFl  -  pH)  -  (Pi  -  Pf^  +  Ph 

At  any  other  condition,  the  inlet  air  angle  is  given  by 

P  =  P'pa  +  (Pf  -  Ph) 
=  (Pi  "  Pfx)  +  Pf- 
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a)  From  N.  Side  on  Free-Jet 


Horizontal 


b)  From  S.  Side  on  Free- Jet 


Cascade  T.E.  Locus 


Horizontal 


Flow 


Vertical 

c)  From  N.  Side  on  Cascade 


Figure  CI.  Probe  Angle  Referencing 
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